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ACTUALIDAD. estra sección no falta 
este mes, aunque los calores han 
aletargado un poco el mercado 


INTELIGENCIA ARTIFICIAL. Con este 
artículo queremos acercanos a un 
problema de candente actualidad. En 


futuros nümeros Перагето$ a 
realizaciones más prácticas ЕН 
LAPIZ ОРТІСО dk'TRONICS Е 


JUEGOS. Match Point. ShadowFire 


BINGO. Analizamos a fondo un 
programa. Para poder jugar y mejorar las 
técnicas de programación 

280 PIO. Los aficionados al soldador 
tienen un montaje para sus vacaciones: con 
él se puede hacer casi de todo 
LENGUAJE MAQUINA. Comenzamos 
una serie desde el nivel más básico, 
aunque pronto entraremos en materia 
MASTERFILE, una de las bases de datos 
más completas para Spectrum 

GUSANEZ 


PROGRAMAS. Un juego difícil y 
entretenido, con Gusánez de protagonista. 
"También un programa para calcular la 


factorial con todas sus cifras, y un monitor 
de código máquina 


ordenadores hablen, 


do que los 


Poco a poco 
то todavía 
y mitificado 50 


«тат. 


sin la suya. Un progra 
este verano. 


pa 
los momentos ñ 
¡Felices vacaciones: 


de cuanto se ha escrito 
Con este tema 


antes de pasar a 
tes de Spectrum. 


a pesar 
fa Artificial. 


je a Gusánez (Сиз! 
no dej ma muy especial para 
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10 REM HARDWARE. El mercado de periféricos y programas | 


para Spectrum ha evolucionado desde 15 aparición de aquellas 
primeras expansiones externas y 39 : 

momentos а una situación problenática e 
software! Muchas pequeñas tiendas han abandon 
debido a la continua renovación de producto 
dificil mantenerse ат dia sin acumular 
programas de dudosa venta. 


os parece atravesar un buen 


an de calidad con cada nuevo 
en muchos 


El mercado de periféric 


momento: los productos mejor 
lanzamiento, y 105 precios se mantienen estables O, 


casos, disminuyen- 


Por ejemplo, е1 reciente lanzamiento ይ] Й 
DISCOVERY 1, de Technology Research, 2 


sistema de disco 
o a la parte alta de la gama de perifér 


un nuevo product 
para Spectrum. 


Por otro lado, hemos sabido que Indesconp 
a partir de Septiembre una versión muy mejorada del ‹ 
MULTIFUNCION DNA veterano entre 105 teclados, y un nuevo 


Interface Para poder jugar con dos joysticks 


También pPin-soft nos comenta que el lápiz òptic 
presentamos en el número pasado está funcionando ш 


el mercado- 


20 REM EL QL ESPAÑOL LLEGA А ESPAÑA. Aunque parezca una 
paradoja, las primeras unidades de esta máquina cruzaron el 
Canal de 15 Mancha y están siendo axstribUldAR 2220 
conseguir una де ellas. Y el mes que viene coment eno 


mejoras que introduce. 


30 REM Y la noticia más importante es que Agosto 65 un 
nes de vacaciones para 15 mayoria. ¿No habeis notado que el 
Spectrum se calienta mucho más de lo normal? Dejad ese. 
programa que no funciona У nos veremos en Septienbre- 
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a inteligencia artificial tiene 

como materia de estudio al- 

gunas de las más inquietan- 

tes preguntas que pueden 

plantearse: ¿Qué hace nues- 
tra mente cuando pensamos, senti- 
mos, vemos o comprendemos? ¿Es 
posible averiguar realmente cómo 
funciona el cerebro? Estas pregun- 
tas se repiten desde hace miles de 
años sin obtener respuesta. 


Sin embargo, quienes investigan 
estos temas disponen ahora de una 
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nueya herramienta: el ordenador. 
Cualquiera que los utilice puede 
atestiguar que a menudo dan más 
problemas de los que solucionan, 
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pero en el estudio de la mente y el 
pensamiento constituyen un banco 
de pruebas idóneo. 


Las teorías sobre el pensamiento 
frecuentemente toman la forma de 
descripción de un proceso. Por 
ejemplo, una posible explicación 
al proceso de elaboración de res- 
puestas a preguntas sería: en pri- 
mer lugar, se transforma la pre- 
gunta en una representación inter- 
na. Esta se emplea como un índice 
que busca la zona de memoria ade- 


cuada. Su contenido se traduce al 
formato necesario para una res- 
puesta y por ültimo, se generan las 
palabras para comunicarla. 

Las teorías de procesos parecen 
un buena manera de describir lo 
que sucede en el interior del cere- 
bro, pero realmente no aclaran 
gran cosa. (Cómo se organiza la 
memoria?, ¿puede llegar а saturar- 
se?, ¿cómo se localiza un determi- 
nado suceso en la memoria? Un 
investigador que intentase crear un 
programa para responder pregun- 
tas tendría que enfrentarse a estos 
problemas y a otros muchos. La 
programación nos fuerza a ser ex- 
plícitos y esta es la mejor manera 
de confrontar las teorías con la rea- 
lidad. 

No hace mucho, los investigado- 
res de la inteligencia artificial en- 
focaban su actividad sobre lo que 
consideraban manifestaciones de 
comportamiento altamente inteli- 
gente: jugar al ajedrez, demostrar 
teoremas matemáticos, etc. Mu- 
chos encontraron potentes técni- 
cas de programación para acome- 
ter, esas tareas «inteligentes». Pero 
también descubrieron que los pro- 
cedimientos usados por las perso- 
nas eran muy diferentes. Actual- 
mente concentran sus energías en 
la investigación de trabajos que la 
mayoría consideramos triviale: 
utilización del lenguaje, aprendi- 
zaje partiendo de las experiencias 


pasadas y lo que llamamos «senti- 
do comün». 


Ellenguaje 


Se comenzó con intentos de es- 
cribir programas que manejaran de 
un modo práctico el inglés (y otros 
idiomas naturales). Se pretendía 
que pudieran entender el lenguaje 
escrito lo suficientemente bien 
como para hacer resümenes, tra- 
ducir a otros idiomas o contestar 
preguntas sobre textos analizados. 
Pero los investigadores se encon- 
traron de inmediato con una difi- 
cultad adicional: las personas en- 
tienden normalmente más de una 
frase que su estricto contenido lé- 
xico. Por ejemplo, casi todos esta- 
rían de acuerdo en que la frase 
«Pepe se compró un coche nuevo» 
contiene una referencia a dinero, 
aunque esta palabra no aparezca. 
Cualquier programa que compren- 
da la frase debe responder «Sí» a la 
pregunta «¿Se gastó dinero Рере?». 

¿Cómo puede saber esto un pro- 
grama? Una primera aproxima- 
ción sería asociar «dinero» a 
«compran», declarando que com- 
prar significa «dar dinero a cambio 
de». Este método emplea los signi- 
ficados de varias palabras de la fra- 
se para construir una representa- 
ción del significado de toda la ex- 
presión. Más o menos es un buen 
sistema, pero tiene algunos incon- 


venientes. Las palabras son fre- 
cuentemente ambiguas y las de- 
ducciones que se pueden hacer so- 
bre su sentido fácilmente pueden 
ser equívocas. La ambigüedad está 
tan generalizada que cualquier 
programa que trabaje con lengua- 
jes naturales debe tener poderosos 
métodos para evitarlas. 

Otro problema habitual es que 
los contenidos «entre líneas» no se 
deben a ninguna palabra en parti- 
cular. Por ejemplo, en la siguiente 
historia: «Pepe fue a un restauran- 


te y pidió un sandwich. El camare- 
ro se lo sirvió rápidamente. En 
agradecimiento le dio una buena 
propina». Es obvio que Pepe se co- 
mió el sandwich y lo pagó, pero es- 


tas acciones no se desprenden de 
ninguna palabra de la historia. 
¿Podría deducirlas un programa de 
ordenador? Para ello debería saber 
lo que ocurre en los restaurantes. 
Una persona también podría afir- 
mar que probablemente Pepe se 
sentó a la mesa, miró la carta, un 
cocinero hizo el sandwich, etc. El 
programa necesita poder rellenar 
los «huecos» no mencionados en el 
texto. 

Hay una solución para ambos 
problemas: que el programa gene- 
re constantemente previsiones o 
expectativas sobre lo que ocurrirá 
inmediatamente después. Las per- 
sonas raramente advierten la am- 
bigüedad al hablar, porque el sig- 
nificado exacto queda aclarado por 
el contexto. Un programa que re- 
solviese la ambigüedad tendría que 
construirse un contexto. En otras 
palabras, debería presuponer lo 
que puede ocurrir basándose en lo 


sucedido previamente y en lo que 
ya conozca sobre este tipo de situa- 
ciones. 

Estas expectativas o previsiones 
surgen generalmente en bloques y 
ayudan también a tapar los «hue- 
cos» de los que hablábamos ante- 
riormente. En una conversación 
sobre un restaurante se hace refe- 
rencia a una variedad de objetos, 
situaciones y personajes: el cliente 
observará la carta, pedirá algo al 
camarero, esperará un rato hasta 
que le sirvan, comerá, pagará la 
nota, dejará una propina y se mar- 
chará. Es obvio en este ejemplo 
que los bloques de expectativas 
pueden ordenarse temporalmente. 
Cuando una de ellas se cumple, el 
programa puede deducir que la an- 
terior probablemente también lo 
hizo. Del mismo modo, las perso- 
nas saben la secuencia en que se 
desarrollan las acciones habituales 
y utilizan ese conocimiento para 
generar expectativas. No hay for- 
ma de entender el lenguaje sin co- 
noceralgo del tema que se discute. 

Para realizar programas con los 
que verificar estas ideas habrá que 
imaginar qué tipo de expectativas 
existen y cómo van a usarse. Luego 
habrá que decidir la forma en que 
las manejará el programa. En cier- 
to modo, todos los analizadores 
sintácticos de los lenguajes natura- 
les usan las expectativas. La dife- 
rencia entre un analizador tradi- 
cional, estrictamente sintáctico, y 
un analizador más conceptual ra- 
dica en la procedencia de sus ex- 
pectativas. El primero utiliza sólo 
conocimientos gramaticales, 
mientras el segundo incorpora 
además información de otras fuen- 
tes. El analizador tradicional ve la 
sintaxis como proceso preliminar 
para otros análisis. El conceptual 
la ve únicamente como una de las 
muchas fuentes de información 
que utiliza simultáneamente para 
comprender textos. 

Muchas de las expectativas «de 
bajo nivel» proceden del vocabula- 
rio utilizado para expresar un sig- 
nificado. Existen programas que 
usan la dependencia conceptual 
para representar significados. En 
su forma básica soportan una ac- 
ción, un sujeto, un objeto y un 
componente direccional (desde o 


hacia). Por ejemplo, la acción «co- 
mer» requiere que el objeto sea co- 
mestible y que el sujeto esté vivo. 
Cuando en un texto aparece una 
palabra que implica comer, se 
crean expectativas sobre un objeto 
comestible (generalmente se en- 
cuentra tras la palabra «comer») y 
un sujeto con vida (normalmente 
precediéndola). Se advierte que las 
expectativas generadas son tanto 
semánticas (presuponen el signifi- 
cado de la palabra) como sintácti- 
cas (presuponen dónde debe en- 
contrarse la palabra). Por supues- 
to, incluso las acciones de depen- 
dencia conceptual son susceptibles 
de ambigüedad. Un modo de evi- 
tarla sería crear expectativas refe- 


Un programa inteligente 
debe comprender los 
sobreentendidos de 
nuestro lenguaje 


rentes a los dos significados posi- 
bles y escoger la acción cuyas pre- 
visiones se cumplan en las restan- 
tes palabras del texto. En ese ins- 
tante, el programa desactivaría las 
expectativas no satisfechas. 

Hay otros modos de eliminar la 
ambigüedad. Los esquemas de ex- 
pectativas más complejos pueden 
proporcionar mejor información. 
La historia del restaurante conte- 
nía una expresión ambigua: «El 
camarero le sirvió rápidamente. 
En agradecimiento le dio una bue- 
na propina». El pronombre «le» 
no se refiere al antecedente más re- 
ciente, el camarero, sino a otro 
más remoto: Pepe. La única posi- 
bilidad de aclarar el significado de 
este pronombre en la frase es por la 
previsión de que los clientes dejan 
propina a los dependientes. Puede 
intentarse asociar esta información 
con el significado apropiado de 
«propina». Pepe puede actuar 


como cliente en este episodio, pero 
en cualquier otra situación podría 
hacer el papel de dependiente. Las 
presuposiciones cliente/depen- 
diente/propina y la identificación 
de Pepe como cliente surgiría de 
un bloque de expectativas sobre 
restaurantes. 

Cuando los bloques de expecta- 
tivas comenzaron a utilizarse en 
los programas, se descubrieron al- 
gunos interesantes detalles sobre 
su funcionamiento. Una historia 
puede referirse a muchos bloques y 
éstos pueden relacionarse entre sí 
de múltiples maneras. Pueden 
ocurrir a la vez (por ejemplo, co- 
mer y viajar en avión) o ser incom- 
patibles (conducir un coche e ir en 
avión). También pueden decidir el 
sentido de una determinada pala- 
bra asociada a ellos, lo que no re- 
suelve la ambigüedad pero consti- 
tuye una valiosa ayuda. 

Los bloques de expectativas 
también dan problemas. ¿Cómo 
puede un programa imaginarse 
qué bloque utilizar en un momen- 
to determinado? Lógicamente, 
añadiendo condiciones de activa- 
ción que especifiquen en-qué situa- 
ciones debe seleccionarse cada uno 
de ellos. Los primeros programas 
simplemente buscaban en cada 
bloque para comprobar si se ha- 
bían encontrado las condiciones. 
Pero al aumentar el número de 
bloques por programa hubo que 
perfeccionar su organización. Se 
necesita un método para encontrar 
el adecuado sin tener que mirarlos 
todos. 

Otro problema es seleccionar lo 
que debe figurar en cada bloque. 
Comer en casa tiene mucho en co- 
mún con comer en un restaurante. 
¿Las expectativas de ambas accio- 
nes deben ir en el mismo bloque o 
en dos diferentes? ¿Que se haria 
con la información relativa a los 
distintos tipos de restaurantes? 
Hace falta una teoría sobre cómo 
organizar y encontrar los grupos 
de expectativas. 

En resumen, lo que empezó 
como estudio del lenguaje se ha 
convertido en una investigación 
sobre el conocimiento y la manera 
en que éste se organiza. En otras 
palabras, un estudio de la memo- 
ria. 


L lápiz óptico DK'TRO- 
NICS, distribuido en Espa- 
fia por ABC Analog, consta, 
además del lápiz en sí y su 


correspondiente interface, 
de un programa de dibujo y un ma- 
nual de instrucciones, este ültimo 
bastante completo pero escrito 
(icómo no!) en su lengua nativa, es 
decir en inglés. Comienza este ma- 
nual explicando muy someramen- 
te lo que esun lápiz óptico: un dis- 
positivo que detecta la luz emitida 
por el televisor y envía una señal al 
ordenador, el cual podrá, si dispo- 
ne del software adecuado, localizar 


el punto de la pantalla sobre el que 
está situado el lápiz. 

Para poder utilizar este periféri- 
co deberemos, antes de nada, co- 
nectar la clavija del lápiz a la en- 
trada correspondiente en el inter- 


face y éste al bus trasero de Spec- 


trum. Una vez hecho esto podre- 
mos enchufar el ordenador y car- 
gar el programa que se nos sumi- 
nistra tecleando LOAD “”. 


Ajustando el lápiz a 
nuestra TV 


Si todo ha funcionado bien apa- 
recerá en pantalla un menü con 


tres alternativas posibles: si pulsa- 
mos la tecla «c» saltaremos a la su- 
brutina que ajusta el código má- 
quina a nuestra TV. Para ello de- 
beremos situar el lápiz sobre el 


. cuadro blanco de la izquierda. 


Aparecerá una flecha a su derecha 
que deberemos subir (tecla «1») o 
bajar (tecla «q») para alinearla con 
la cruz del cuadro. Cuando lo con- 
sigamos aparecerá el mensaje «Co- 
rrect setting», entonces estaremos 
en condiciones de salvar el código 
máquina ajustado, pulsando una 
tecla cualquiera y después la «s». 
Esto lo podemos hacer en otra cin- 


ta tras haber salvado el programa 
BASIC, para lo cual podremos ha- 
cer BREAK, SAVE «lápiz» y 
RUN para volver al menú. 


Programa de dibujo 


Aparte de la opción de calibrado, 
tenemos en el primer menú otras 
dos opciones que nos permiten ac- 
ceder al menú principal de progra- 
ma de dibujo: si pulsamos la tecla 
«k» lo haremos respetando las 
pantallas que tengamos almacena- 
das (ver comando Keep) y si pulsa- 
mos cualquier otra tecla la entrada 


será «en frío», es decir inicializan- 
do variables y borrando las panta- 
llas archivadas (caso de que hubie- 
ra alguna). 


Cuando lo hagamos aparecerán 
en la parte baja de la pantalla las 
iniciales de cada uno de los co- 
mandos disponibles. Para seleccio- 
narlos deberemos situar el lápiz 
sobre el cuadro blanco que hay 
junto a cada uno de ellos y pulsar 
una tecla cualquiera. En la zona 
superior veremos los dos cursores 
que se utilizan para marcar los 
puntos de la pantalla sobre la que 
trabajarán los citados comandos. 
El cursor principal está representa- 
do con un «x» y el secundario con 
las líneas vertical y horizontal que 
cruzan la pantalla. Para cambiar la 
posición de este último situaremos 
el lápiz en el nuevo emplazamien- 
to y pulsaremos una tecla cual- 
quiera; para el principal se utiliza 
el comando Move como explica- 
mos más adelante. 


to es aceptable, cómodo y fácil de 
utilizar. Las posibles opciones son 
las siguientes: 


Erase 


Este comando está pensado para 
borrar la última figura que haya- 
mos dibujado; siempre que ésta 
haya sido una circunferencia, una 
recta, un rectángulo o un arco de 
circunferencia (en realidad lo que 
hace es repetir el último comando 
en OVER 1). Desgraciadamente 
no arreglará nada si nos hemos 
equivocado al hacer FILL, y si la 
figura quedaba sobre algo dibujado 
ya anteriormente esa zona será 
también borrada. Hay que poner 
especial atención en no mover los 
cursores antes de ejecutar esta op- 
ción, pues entonces dibujaría la fi- 
gura en distinto sitio del que estaba 
la anterior, con lo que el problema 
será doble; esto, con un poco de 
habilidad, puede ser utilizado para 
dibujar en OVER 1, función de la 
que carece este programa. 


SACALE 


PUNTA 
SPECTRUM 


Continuamos el estudio de los lápices ópticos disponibles 
en el mercado español. Este mes nos llega, del otro lado del 
Canal de la Mancha, otro de estos periféricos, que ofrece el 
aliciente de poder ser utilizado en nuestros propios 


programas. 


Comandos y opciones 


A pesar de que este programa 
dispone de 16 comandos de dibujo 
harían falta algunos más que lo 
completarán para poder hablar de 
un paquete serio con el que pudié- 
ramos realizar gráficos algo com- 
plejos. De todas formas el conjun- 


Draw 


Dibuja una línea recta entre los 
dos cursores. Para ejecutar este co- 
mando deberemos, una vez que 
hayamos definido la posición que 
queremos, poner el lápiz sobre el 
cuadrado correspondiente a la «D» 
y pulsar una tecla. 


Move 


Este comando desplaza el cursor 
principal al lugar que ocupa el se- 
cundario, quedando, por lo tanto, 
ambos en el mismo punto. Para 
mover de sitio el cursor secundario 
basta apuntar el lápiz al punto que 
deseemos y pulsar una tecla. 


Circle 


Traza una circunferencia con 
centro en el cursor principal y 
cuyo radio será igual a la distancia 
entre éste y el cursor secundario. 
En caso de que la circunferencia 
no coja en la pantalla dará el men- 
saje de error «Radius of circle is 
100 big, re-position pen and try 
again», algo así como «El radio de 
la circunferencia es demasiado 
grande, vuelve a situar el lápiz y 
prueba de nuevo». 


Rectangle 

Dibuja un rectángulo cuyos vér- 
tices serán los dos cursores. 
Fill 


Opción de rellenado, típica en 
todo buen programa de dibujo. En 
este caso la rutina que realiza el 


El Interface resulta más 
voluminoso que en otros 
lápices, pero a cambio 
deja libre la toma EAR. 


trabajo no está del todo consegui- 
da. Aparte de ser lenta, no siempre 
admitirá que tomemos como lími- 
tes de la superficie a rellenar los 
bordes de la pantalla; quedándose 
«colgado», en caso de que lo haga- 
mos, durante bastante tiempo (al- 
rededor de media hora) y dando al 
final un Out of memory. 

Para ejecutar este comando de- 
beremos señalar, con el cursor se- 
cundario, un punto de la superficie 
a rellenar y señalando al cuadrado 
de la letra «F» pulsar una tecla. 
Una vez hecho esto no podremos 
echarnos atrás, por lo que convie- 
ne asegurarse antes de hacerlo de 
que la figura que pretendemos re- 


llenar no tiene ningün hueco por 
donde pueda escapar el «flujo» de 
tinta. 


Hand-draw 


Este comando nos da la posibili- 
dad de dibujar en la pantalla como 
si estuviéramos haciéndolo con un 
lápiz de los de madera y grafito (o 
6851). Para ello deberemos marcar 
con el lápiz el cuadro correspon- 
diente (el «H») tras lo que aparecc- 
rá el mensaje «Press any key to 
start sketching», que en castellano 
es «Pulsa una tecla para comenzar 
a dibujar». Para dejarlo bastará 
con pulsar una tecla de nuevo. 


Border, Ink, Paper 


Estos tres comandos trabajan de 
forma similar. Definen el color del 
BORDER o los atributos en curso 
(salvo brillo y flash, inexplicable- 
mente ausentes en un programa de 
dibujo). Cuando marquemos con 
el lápiz las casillas correspondien- 
tes aparecerá en la parte inferior de 
la pantalla una tira con los ocho 
colores posibles en el Spectrum. 
Sólo tendremos que señalar con el 
lápiz el que deseamos y pulsar una 
tecla. 


New screen 


La pantalla es borrada y redefi- 
nida con los atributos en curso, los 
cursores son colocados en el cen- 
tro. 


Tape 

Podemos utilizar este comando 
para salvar o cargar pantallas o 
desde cassete o microdrive. Cuan- 
do lo ejecutemos aparecerán en la 
parte inferior de la pantalla tres 
opciones SAVE, LOAD ነ 
ABORT (para volver al menú), 
Una vez elijamos SAVE o LOAD 
aparecerán otras dos opciones: 


TAPE (cassette) y MICRODRIVE 


Con respecto a otros 
lápices el Dk'Tronics 
ofrece la ventaja de poder 
ser usado en nuestros 
programas. 


Keep 


Este comando, que sólo puede 
ser utilizado en la versión de 48 K, 
salva el contenido de la pantalla en 
memoria. Podremos archivar de 
esta manera hasta cinco pantallas 
distintas que podrán ser recupera- 
das usando el comando que sigue. 


Recall 


Cuando lo ejecutemos se nos 
mostrarán los números de las pan- 
tallas que haya en memoria (caso 
de haber alguna), junto a la opción 
CYCLE; si elegimos esta última lo 
que hará es mostrarnos, a la veloci- 
dad que le indiquemos, todas las 


YA ESTÁ A LA VENTA | 
та Док 


pantallas que en ese momento 
haya archivadas. 


Arc 


Traza un arco de circunferencia; 
para ello deberemos definir tres 
puntos: los dos extremos serán in- 
dicados con los cursores, y otro 
punto del arco será tomado de la 
última posición del arco secunda- 
rio. En caso de que el arco resul- 
tante se salga de pantalla el progra- 
ma se interrumpirá con mensaje: 
«B: Out of screen». Para continuar 
deberemos hacer RUN, y pulsar la 
tecla «K» para que las pantallas 
que hayamos dibujado sean respe- 
tadas. 


Letters 


Este comando nos permite inser- 
tar textos a partir del punto marca- 
do por el cursor secundario. Cuan- 
do lo ejecutemos nos pedirá el tex- 
to que queremos sea insertado; de- 
beremos teclearlo con normalidad 
y pulsar ENTER. 


Utilizando el lápiz en 
nuestros programas 


La mejor de las opciones que 
nos ofrece este periférico es la po- 
sibilidad de utilizarlo en nuestros 
propios programas. Para ello apro- 
vecháremos la rutina encargada de 
localizar las cordenadas del punto 


donde el lápiz está situado. Dicha 
rutina deberemos salvarla en cinta 
con SAVE «nombre» CODE 
62564,1706 para la versión de 48 
K y SAVE «nombre» CODE 
29796,1706 para la de 16 K. Para 
cargarla en nuestros programas ha- 
remos CLEAR 62563 (29795 para 
16 K): LOAD «nombre» CODE. 
Una vez que lo tengamos en me- 
moria podremos localizar el lugar 


El programa de dibujo es 
sencillo, siendo el único 
үр disponible para 


en donde está situado el lápiz de la 
siguiente forma: LET coords < 
USR 62564 (29796 para 16 K): 
LET у = INT (coords/256): LET x 
= coords - 256*y. 

Cuando ejecutemos esto queda- 
rán las coordenadas en las varia- 
bles x (horizontal) e y (vertical); a 
partir de ahí son nuestro ingenio e 
imaginación quienes tienen que 
decidir qué aplicación queremos 
darle a esta interesante posibili- 
dad. Si nos conformamos con con- 
seguir el nümero de línea sólo ten- 
dremos que hacer lo siguiente: 
LET línea = USR 63109. 

El programa adjunto es un ejem- 
plo de cómo podemos confeccio- 


nar un menú utilizando este lápiz 
óptico. Antes de ejecutarlo debere- 
mos haber salvado en cinta la ruti- 
na de localización de coordenadas 
de la forma anteriormente expues- 
ta, y poner el cassette en condicio- 
nes para cargarla cuando el pro- 
grama nos lo pide. El programa 
«testea» la variable de sistema P- 
RAMT para averiguar si nuestro 
Spectrum es de 16 o de 48 K, por 
lo que debe funcionar a la perfec- 
ción en ambos casos. 

No es nada difícil, como hemos 
visto, utilizar este periférico en 
nuestros programas o incuso adap- 
iar programas comerciales para 
que admitan esta posibilidad. Es- 
peramos nos comuniquéis vuestras 
experiencias en este campo en el 
que todo es decidirse. Esperamos 
igualmente que hayan quedado 
claras las características y modo de 
empleo de este lápiz óptico y que 
esto os ayude a saber cuál es el que 
más se ajusta a vuestras necesida- 
des. En el caso de que las aproxi- 
madamente 7.000 pesetas por las 
que se comercializa os parezca de- 
masiado, y si os consideráis unos 
perfectos «manitas», aün podéis 
acudir al montaje del nümero seis 
de nuestra revista y construiros vo- 
sotros mismos un útil de dibujo 
que facilite el manejo del Spec- 
trum. 

Luis Gala 


5 REM Menu de demostracion 
para lapiz Dk'tronics 16 y 48K 


10 PRINT "Carga rutina localiz 
acion" 
20 во SUB 200 
30 CLEAR K-2972 
40 LOAD ""CODE 
GO SUB 200 
CLS 
PRINT "MENU-DEMO:Pon lapiz 
sobre opcion y pulsa una tecla" 
70 FOR п-о TO 9 
O PRINT 4 PRINT "Opcion "уп" 


“8 FLASH 15" " 

90 NEXT n 

95 PAUSE o 

100 LET linea-USR (К-2426) 

110 FOR n=3 TO 22 STEP 2 

120 IF linea-n THEN CLS : PRIN 
T "Has elegido la opcion "; (n-3) 
/2: BEEP .5,20: G0 TO SO 


NEXT n 
G0 TO 95 


REM Subrutina calculo 
ultimo octeto RAM fisica 


LET КЕРЕЕК 25732*256XPEEK 2 
: RETURN + REM 16 o 48K 


aparecidos hasta ahora. 


Núm. 1250 pts. 

Cómo usar el microdrive/Progra- 
mación Basic/Ampliación Basicare/ 
Rutina despertador/Variables del sis- 
tema/Entrada datos mediante másca- 
ras/Protección del software/Sintoni- 
ce su Spectrum/Programas. 


Núm. 3*250 pts. 

Novedades sonimag '84/Ampliando el 
Basic/Programas para ordenar pro- 
gramas/Gráficos con el VU-3D/Len- 
guaje Forth/Archivos en microdrive/ 
Programación de un interface de im- 
presora/Programas. 


Núm. 5 *250 різ. 
Floppys para Spectrum/Diseño asis- 
tido por ordenador/64 Caracteres por 
línea/Juego de la vida/Pascal/Así ha- 
cemos las portadas/Control de eva- 
luaciones/Programas. 


Complete su colección de 


Todospectrum 


A continuación le resumimos el contenido delos ejemplares 


Núm. 2250 pts. 
Gráficos profesionales/Desplaza- 
miento pixel a pixel/Utilización de 
rutinas/Construcción del interface 
centronics/Programas de utilidad pa- 
ra microdrive/Rutina reset en código 
máquina/Análisis del editor de textos 
Tasword/Interfaces para impresoras/ 
Programas. 


Núm. 4250 p 
De profesión: programador/Consola 
para el Spectrum/Comparación códi- 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascal/Pro- 
gramas. 


Núm. 6+250 pts. 
Representación de funciones/Todos 
los caminos conducen a la ROM/Jue- 
gos/Pascal/ Construcción de un lápiz 
óptico/Programas de gestión. El SITI/ 
Logo: tortugas para todos/Interrup- 
ciones del Z-80/Programas. 


505 EJEMPLARES DE 


$IN NECESIDAD DE ENCUADERNACION 


Para hacer su pedido, rellene este cupón HOY MISMO 


Tedospectrum 


Ruego me envien los siguientes ejemplares atrasados de TODOS- 
PECTRUM .. 

Por favor envienme 
ejemplares de TODOSPECTRUM, al precio de 600 pts. más gastos de envío. 
El importe Io abonaré 


О POR CHEQUE D CONTRA REEMBOLSO О CON MI TARJETA DE 
CREDITO D AMERICAN EXPRESS O VISA O INTERBANK 


"Código máquina 
para ampliar e BASIC | 
Lore eim 


Programan B frogger on BASIC 


y envielo а: 
Bravo Murillo, 377 
Tel. 733 96 62 - 28020 MADRID. 


al precio de 250 pts 
tapas para la encuadernación de mis 


Nümero de mi tarjeta 


111111 


. Firma 


ШП 1111111111 
Fecha de caducidad пе 
NOMBRE 
DIRECCION 
CIUDAD 


PROVINCIA 


(cada tapa es para 6 ejemplares) 


SHADOW FIRE 


Erbe 
Spectrum 48 К 


2.000 ptas. 


El embajador Krixix ha sido captu- 
rado por el malvado Zoff. Con él, han 
sido capturados los planos de Shadow- 
fire. una nave espacial de nuevo tipo. 
Si Zoff capturase esos planos. el Impe- 
rio caería en sus manos en poco tiem- 
po. En pocas horas. los esbirros de Zoff 
descubrirán los planos. ocultos en un 
microfilm en el espina dorsal de Kri- 
xix. Nuestra misión es evitarlo. 

Para ello. el embajador nos ha nom- 
brado jefes del equipo Enigma. Este 
equipo. formado por seis miembros. 
deberá penetrar en Zoff V 


Control: Teclado, joystick. 

Jugadores: Uno. 

Gráficos: Muy buenos, con 
iconos que simbolizan las op- 
ciones en los menús. 

Sonido: Unos pitidos que nos 
avisan cuando somos atacados. 
Мо ез su fuerte. 
el de dificultad: Difícil; no 
dispone de ninguna opción para 
dosificar la dificultad. 

Originalidad: Primera aven- 
tura con entrada mediante me- 
nús con selección gráfica. 

Conclusión: Pese a la dificul- 
tad de localizar al embajador en 
límite de tiempo que se nos da, 
el juego resulta atractivo. La 


mayor prueba es que apuremos 
ese tiempo en cada partida. 


Manto 

teletransporta a 
sus compañeros 
a la nave Zoff V. 


Nuestro equipo está compuesto por 
tropas de élite, como Zark, humano o 
Sylk, insectoide. Ambos muestran 
gran resistencia y fortaleza física. Sev- 
rina, humana y peligrosa delincuente, 
es experta en abrir cerraduras. Resulta 
rápida, aunque poco resistente. Torik. 
aviano y compañero de Ѕеугіпа, es 
también rápido. 

Los dos restantes miembros del 
equipo son dos androides: Manto, es- 
pecializado en teletransporte, y Maul, 
diseñado para el transporte de armas. 
Ambos resultan lentos. Los personajes 
pueden ir armados, recogiendo las ar- 
mas en nuestra nave de ataque. 

Para cumplir la misión, debemos re- 
correr la nave hasta encontrar al emba- 
jador, y sacarlo de la Zoff V. Los movi- 


Silk y thorik 
están bajo 
ataque de dos 
enemigos. Tras 
ordenar a Thorik 
que pase al 
ataque, le 
indicamos a Silk 
que le ayude. 


mientos y las diversas acciones se rea- 
lizan por selección en un menú, estan- 
do indicadas las diversas opciones por 
«iconos». Si posicionamos el joystick 
sobre una de las opciones y pulsamos 
el botón de disparo, queda selecciona- 
da esa opción 

La estructura de menus es completa, 
comenzando por un menú para cada 
personaje, que incluye tres submenús 
е1 de ataque, el de movimiento y el de 
recogida de objetos. La originalidad de 
una aventura sin barreras idiomáticas 
es una de las características más intere- 
santes de este juego. Un buen diseño 
gráfico y una velocidad de respuesta 
buena complementan este juego, que 
hará pasar buenos ratos a los amantes 
de laaventura. 


MATCH POINT 


Investrónica 


Spectrum 48 K 
2.100 ptas. 


Uno de los primeros juegos de inspi- 
ración deportiva que aparecieron para 
el Spectrum y la realización definitiva 
del tenis en un ordenador. Aunque se 
trata de un programa relativamente 
antiguo, el ambiente relajado de las va- 
caciones de verano es perfecto para un 
juego como éste, donde la concentra- 
ción y rapidez de reflejos resultan im- 
prescindibles. 

El juego admite manejo desde tecla- 


Control: Teclado, joystick. 
Jugadores: Uno o dos. 
Gráficos: La presentación 3D 
del campo de tenis es muy bue- 
na. El movimiento es excelente. 
La animación de los jugadores 
es también excelente; sólo los 
recogepelotas dejan algo que de- 
sear. 

Sonido: No tiene. 

Nivel de dificultad: Tres nive- 
les: cuartos de final, semifinal у 
final. La longitud del partido 
puede ser de uno, tres o cinco 
sets. 

Originalidad: Aunque existen 
muchos programas deportivos, 
muy pocos de ellos incluyen una 
simulación tan completa. La 
posibilidad de dos jugadores es 
algo que también se echa de me- 
nos en muchos juegos. 

Conclusión: Los programado- 
res del Psion han llevado, como 
otras veces, las posibilidades de 
la máquina al límite. Un progra- 
ma adictivo, donde el joystick 
resulta indispensable si quere- 
mos plantarle cara al ordenador. 


do o joystick, aunque resulta necesario 
un Interface que admita dos palancas 
si queremos competir en igualdad de 
condiciones contra un oponente hu- 
mano. Existen tres niveles de dificul- 
tad que se distinguen por la velocidad 
de la bola y los efectos que se pueden 
lograr. Se puede dosificar también la 
duración del partido: un set o partidos 
al mejor de tres o cinco sets. 

Las reglas del tenis han sido respeta- 
das hasta el tie-break, que consiste en 
que, si en un set se llega а empate de 
seis juegos, la victoria se la apunta el 
jugador que llegue a siete tantos. 


Las subidas a la 
red y el juego 
agresivo son 
elementos 
imprescindibles 
de una victoria. 


La representación gráfica es соггес- 
18. dentro de las posibilidades del 
Spectrum. Su principal problema es 
que se tarda en acostumbrarse a la 
perspectiva, fallando inicialmente mu- 
chos golpes por no saber dónde está 
exactamente la bola. Incluso cuando 
уа estamos acostumbrados, el juego re- 
sulta difícil, necesitando mucha con- 
centración para ganarle a la máquina 
incluso al nivel más sencillo. Un juego 
muy adecuado para las vacaciones, 
siempre que tengamos cerca el mar o la 
piscina para Байатов después de las 
agotadoras partidas. 


16 


BINGO 


El programa que os 
presentamos a continuación 
sortea los números de un 
bingo después de haber 
preparado los cartones para 
cada jugador. Para que no 
todo sea teclear y jugar, el 
programa es analizado a 
fondo. Esperamos que los 
comentarios acerca de su 
estructura os resulten útiles 
en vuestros trabajos de 
programación. 


N el juego del BINGO hay 
E una persona encargada de 
«cantar» los nümeros entre 
шшш | y 99 de forma totalmente 
aleatoria y cada jugador tie- 
ne un cartón con un conjunto de- 
terminado de nümeros (unos 15). 
Los cartones de los jugadores con- 
tienen nümeros diferentes. El ga- 
nador es aquel cuyos nümeros han 
sido cantados en su totalidad. 
El programa admite hasta cuatro 
jugadores y comprucba el cartón 
ganador. 


Procedimiento 


Los módulos de programación 
están dispuestos de la forma si- 
guiente: 

l. Preparael juego. 

2. El cuerpo principal del jue- 
go. 


3. Resultado final. 

Las distintas subrutinas que hay 
dentro del programa son: 

l.l. Instrucciones prelimina- 
res. 
1.2. Prepara los nümeros del 
bombo. 


1.3. Prepara los cartones de los 
jugadores. 

1.4. Imprime los nümeros de 
cada uno. 

2.1. Visualiza los nümeros 
cantados. 

2.2. Muestra (mediante una in- 


terrupción) el cartón de los jugado- 
res. 


3.1. Lista de los nümeros del 
cartón. 

3.2. Muestra los nümeros can- 
tados. 

3.3. Comprueba el cartón ga- 
nador. 


1.1. Estas son las instrucciones 
que se necesitan al comenzar el 


፲ 7 
ШАШ) ШШШ ШШШ M GLI 
ГІШІШІЛІ) 


juego. Еп cada paso del programa 
es fundamental indicar al jugador 
la forma de proceder. 

1.2. La preparación del bombo 
requiere una lista de nümeros alea- 
torios del 1 al 99 (sin repetición) 
que se almacenarán en un vector 
que será A(99). 

1.3. Los cartones de los juga- 
dores son de 4 tipos con 15 nüme- 
ros enteros y totalmente aleatorios, 
desde el 1 al 99 (nümeros distin- 
tos). Cada cartón deberá tener una 
lista de números y cada lista ha de 
ser-distinta. Estos se almacenarán 
en los vectores Q(15), R(15), S(15) 
y Т(15). 

1.4. Visualiza el cartón del ju- 
gador y le da tiempo a дис lo ano- 
te. 

2.1. Muestra, a gran tamaño, 
los números que se van cantando. 

2.2. Interrumpe el juego para 
comprobar aciertos. 


3.1. Repite el punto 1.4, para ን] 


que los jugadores comprueben sus 
nümeros. 


3.2. Los nümeros cantados se 
colocan por orden en el vector 
P(99) y se visualizarán en la panta- 
lla. ч 


3.3. Зе selecciona el cartón ga- 
nador y se comprueba. Los nüme- 
ros se almacenarán en el vector 
V(15). Estos se comparan con los 
que ya han salido, que están alma- 
cernados en P(99), y de esa forma 
se comprueba que esté todo co- 
rrecto. 


HACER X = 
МРАСЕАТОВЮ 


1-99 


Descripción del algoritmo 


l.l. Esta sección muestra las 
instrucciones mínimas para jugar. 
A lo mejor desea más instruccio- E оаа 


5 REM "BINGO" 320 REM ЖЖЖЖЖЖЖЖКЖЖКЖЖЖЖЖЖЖЖЖ 

10 REM кижикикижижжижжжж XPREPARANDO CARTONESX 
1.1 # INSTRUCCIONES Ж XXX KKK KKK OK OX KKK XK OK KOX 
m УЖ ЖЖ ЖЖ ЖЖ ais) 


20 PRINT TAB 10;"BINGO"; TAB 10 439 DIM ROD 
"doni А 
{ ЗО PRINT *"VOY A GENERAR 4 CAR 450 DIM Т(15) 
TONES DE" 460 DIM F(99) 
40 PRINT "BINGO CON LAS LETRAS ДА ርክ VERE 
[Quy RP, S YOT" = ' 
‚ 80 PRINT *"SE COPIARA EN LA IM 220 БЕЙ жуз чол 
PESORA, SI LAHAY. DE LO CONTRARI Sio IF X=P(1) THEN 60 ተፀ 490 
О DEBERAS" 520 NEXT I > 
60 PRINT. "ANOTAR EL CARTON Y L 530 LET FIJ)=X 
ል LETRA CORRESPONDIENTE DEL 540 NEXT. J 
ELEGIDO." 550 LET Y=15 
70 PRINT *"HABRA UN RETARDO AN 560 GO SUB 3000 
TES DE EMPE- ZAR YA QUE ESTARE P 570 GO SUB 3500 
REPARANDO LOSCARTONES. " 586 NEXT ህ 
.80 PRINT '''*""PULSA UNA TECLA 590 PRINT 
CUANDO ESTES FREFARADO. " &00 PRINT 
110 IF INKEY$-"" THEN GO TO 11 610 REM ЖЖЖЖЖКЖЖКЖЖХАЖЖАЖЖЖЖЖЖЖЖ 
о 1.4 X MOSTRAR LOS NUMEROS x 
120 CLS === ###ጁ ችን ት ትሻ ዘ XXX X 
200 RANDOMIZE 620 GO SUB 1600 
ЗОО REM жяжижжижжижжажкижжжкж 630 REM JXXOOOOOOOOOOOOODOCK 
1.2 KPREPARANDO EL BOMBOX X COPIAR NUMEROS ж 
=== XXODOOOOOO IOODOOOOOOECK XSI HAY IMPRESORAX 


310 GO SUR 2500 ЖЖЖЖЖЖЖЖЖ ЖЖ ҰЯ 


? 


pem 
VECTORES 


1 


640 COPY 

650 PRINT ”*"PULSA UNA TECLA РА 
RA CONTINUAR. " 

660 PAUSE 0: 

670 CLS 

680 PRINT "SE VISUALIZARAN LOS 
NUMEROS UNO ል UNO." 

690 PRINT 

700 PRINT "CUANDO COMFLETES EL 
ARTON, PULSAUNA TECLA CUANDO EL 
NUMERO ESTE EN LA FANTALLA. " 

710 PRINT 

720 PRINT "PULSA UNA TECLA FARA 


CONTINUAR. 

730 IF INKEY$-"" THEN 60 TO 73 
o 

735 CLS 

740 REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖКЖЖЖЖЖ 

.1 X NUMEROS CANTADOS ж 

ЖАЖЖЖАЖЖЖЖЖЖЖЖЖКЕЖЖКЖЖ 
748 LET Z=1 

750 DIM B$(99,2) 

755 CLS 

760 PRINT "PULSA UNA TECLA CUAN 
DO TU CARTONESTE COMPLETO. " 

770 FOR N=Z TO 99 

780 GO SUB 5000 

790 LET P(N)=A(N) 


nes, para lo cual deberá alterar las 
líneas 10 a 1 10 del programa. 

1.2. Prepara los nümeros del 
bombo. Observar el diagrama de 
flujo. 

Esta rutina empieza en la línea 
120, limpiando la pantalla y está 
contenida dentro de la subrutina 
que prepara los nümeros a cantar 
(líneas 2500 a 2590). Hay que te- 
ner en cuenta que puede ser una 
secuencia de una subrutina dentro 
de la parte principal del programa, 
ya que se ejecuta sólo una vez. 

1.3. Prepara los cartones del 
juego. Veamos el diagrama si- 
guiente. 

En el programa esta rutina em- 
pieza en la línea 320. Observar el 
vector P(99), que se utiliza en la 
subrutina sort y a su vez en la ruti- 
na de los nümeros del cartón. 

Las líneas 480 a 540 seleccionan 
los 15 nümeros aleatorios. La su- 


795 PAUSE 200 

800 FOR F=1 TO 400 

805 IF INKEY$<>"" THEN GO TO 8 
зо 

810 МЕХТ Е 

815 LET Z=Z+1 

820 NEXT N 

830 CLS 

840 FOR N-1 TO 10 

850 PRINT TAB М; "<жвтмвож><жвтм 
Боже" 

Вео NEXT М 

870 PRINT ,, "CHECK YOUR CARDS" 
880 КЕМ XXX XoXOODIODOODOODOODOOODQUE 

XMOSTRAR CARTON DE Ж 


2.2 Ж LOS JUGADORES Ж 
=== | ЖЖЖЖЖЖКЖЖЖЖЖЖЖЖЖЖЖЖЖ 
890 PAUSE 100 
900 CLS 


910 LET Ү=7 

920 PRINT "TUS NUMEROS FUERON" 

930 PRINT 

935 REM JXXXIOOOOODOOOOEKOE 
XLISTAR NUMEROS* 

1 ж DEL CARTON Ж 

99ሸ፡፡፡፡፡?›፡፡፤›፡፡፡ OF 


940 G0 SUB 1600 


brutina 3000 a 3170 se encarga de 
intercalarlos. 

La subrutina 3500 a 3560 coloca 
los nümeros en el vector adecuado. 

1.4. Esta .subrutina (líneas 
1600 a 1650) visualiza 105 пйте- 
TOS en los cartones en forma de ta- 
bla. 

2.1./2.2. Muestra los nümeros 
cantados y se interrumpe si se ha 
pulsado una tecla. 

Esta rutina toma los nümeros 
que se generan, los visualiza a 16 
veces su tamaño normal y lo alma- 
cena en P. La variable Z cuenta 
cuántos números han salido. Al fi- 
nal de esta subrutina, los números 
cantados se almacenarán en la ca- 
dena P (que contendrá Z núme- 
TOS). 

3.1. Repite el punto 1.4. 

3.2. Esta rutina (línea 960 a 
1070) llama a una pequela subruti- 
na en la línea 3000 que intercalará 


950 REM ЖЖЖЖЖИЖЖЖЖЖжЖжжжжжж 
XMOSTRAR NUMEROSX 


la lista P(Z) en orden numérico y 
los imprimirá en la pantalla. 

3.3. Esta rutina (líneas 4000 a 
4260) 56 divide en dos partes. 

(1) Selecciona el cartón gana- 
dor y prepara la lista de los nüme- 
ros contenidos en ella para alma- 
cenarlos en la cadena V(15) (líneas 
4000 a 4120). 

(2) Comprueba los números 
del cartón ganador. Es necesario 
buscar la lista ordenada P conte- 
niendo los Z nümeros para compa- 
rarlos con la lista ordenada V con- 
teniendo 15 nümeros. Si falta cual- 
quier nümero, el cartón estará in- 
completo. Si están todos los núme- 
тов se visualizará una felicitación. 

El método más rápido para bus- 
car los nümeros es de la siguiente 
manera: 

Se busca por V(1) en la lista P 
hasta que se encuentra, por ejem- 
plo P(12). A continuación, se bus- 


1130 IF C$z"N" 
1140 IF С%="5" 


An 
“балон 
| ANI 
sALN) 
5፡1 lee 
но, ® 
менмін. 
"ноо" 
THEN STOP 
THEN 60 TO 755 


3.2 ж CANTADOS Ж 
ЖЕЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖ 
960 PRINT "FULSA UNA TECLA РАКА 


COMPROBAR LOS NUMEROS CANTADOS 


970 FRINT "TARDARE UN FOCO EN M 
EZCLARLOS." 
980 


1010 60 SUR 3000 

1020 CLS 

1030 PRINT 

1040 PRINT 

1050 FOR N=1 TO Z 

1060 PRINT РМ)" "; 

1070 NEXT N 

1080 PRINT 

1085 REM XXoolooooooooooock 
XCOMPROBAR САКТОМЖ 


"NUMEROS CANTADOS" 


3.3 Ж GANADOR x 
ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖ 
1090 60 SUB 4000 
1100 LET 2=2+1 


1110 PRINT *'"DESEAS CONTINUAR C 
ON-EL JUEGO? (S/N) " 
1120 INPUT C$ 


1150 PRINT "FOR FAVOR, 

R °S Ом." 

1160 GO TO 1120 

1190 REM ЖЖЖЖЖЖЖЖЖЖЖХЖЖЖЖЖЖЖЖЖ 
ጁ FIN DEL PROGRAMA X 
ЖЖЖЖЕЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖ 

1200 STOP 

1580 REM ЖЖЖЖҰЖЖЖЖЖЖЖЖЖ 
ж SUBRUTINAS ж 
ЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


INTRODUCI 


1590 

1600 КЕМ ЖЖЖЖЖАЖЖХЖЖАЖЖЖЖЖЖЖЖЖЖЖЖ 
XSUBRUTINA FARA LISTARK 
XLOS CARTONS DEL 3ህ850# 
ИИК 

1610 PRINT "@";ТАВ 6; "Е": ТАВ 12; 

"S";TAB 18:"T" 

1620 FOR J=1 TO 15 

1630 PRINT Q(J):TAB &sRGD TAB 1 

25507) ¿TAB 18:7 (J) 

1640 NEXT J 

1650 RETURN 

1660 REM ЖЕЖЖЕЖЖЖЖЖЖЖЖИЖЖЖЖЖЖ 
X FIN DE SUBRUTINA Ж 
ЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖ 


1670 


| [የመል 


| ama 


Ya no habrá que 
agacharse para sacar las 
bolas debajo del sofá; 
con el Spectrum los 
nümeros no se salen del 
bombo. Š 


CASA sl 
ca V(2) en la lista P a partir de 
P(13), etc. 

La búsqueda finalizará en cuan- 
to un número de la lista V no esté 
en la lista P pero continuará mien- 
tras encuentre los números de V en 
P. El siguiente diagrama ilustrará 
este paso. 


2500 


2550 
2540 
2550 
2560 
2570 
2580 
2590 
2600 


2700 
2990 


3000 
3010 
3030 
3040 
3050 
5060 
5070 
сово 
3090 


REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
XRUTINA PARA PREPARARK 
XLOS NUMEROS A САМТАКЖ 
ХХХ ХАЖ ХА ХХХ XK 


DiM A(99) 

FOR N=1 TO 99 

(99XRND) +1 

O THEN 60 TO 2550 


REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
Ж FIN DE SUBRUTINA ж 
ዘ ዘ ЖЕ ЖЖЖЖЖ 


REM #ሄ ችት ች ሄ የ K O K 
ж SUBRUTINA DE SORT í 
ЖЖЖЖЕЖЖЕЖЖЖЖЖЖЖЖЖЕЖЖЖ 


NT (5/2) 

THEN 60 TO 3050 
бо TO 3170 
FOR К=1 TO S 
FOR ¢ TO Y-8 STEP K 


LET - B: 
LET. ፐመኮ (+S) 


ТЕ T>=P(B) THEN 60 TO $150 


LET Р(В+5) =F (B) 

LET В=В-5 

IF B>=1 THEN 60 TO 2090 

LET P(B*8) =ፐ 

NEXT а 

NEXT К 

со TO 3010 

RETURN 

REM ЖЖЖЖКЖЖХЖЖЖЖЖЖЖЖЖКЖЖ 
Ж FIN DE SUBRUTINA 8 
ЖЖЖЖЖЖЖЖЖ ቶ፳፳ ቾ፳#፳፳ቿ፳# 


REM ##ዌ ት ቾቹ አ КЕ 
XSUBRUTINA PARA 4X 
XARRAYS МОМЕКТСОБЖ 
ЖЖЖЖЖЖЖЕЖЖЖЖЖЖЕЖЖЖЖ 

FOR J-1 TO 15 

IF U-1 THEN LET Q(J)=F(J) 

IF U-2 THEN LET КСО) 

ТЕ U-3 THEN LET S(J) 

፲፻ U-4 THEN LET T(J)- 

NEXT J 

RETURN 

REM ЖЖЖЖЖЖЖКЕЖЖИЖЖЖЖЖЖЖЖЖ 
ж FIN DE SUBRUTINA Ж 
ዝት ቶዛቾ ተት የችቾቾ ቾቾ ቾች ቾቾ 


Tabla de datos 


Se han utilizado las siguientes 
variables: 


QUS), R(15), S(15), Т(15) son 
tablas que contienen los nümeros 
de los jugadores. 


A(99) es el vector que contiene 
los nümeros a cantar. 

P(99) es la tabla que contiene los 
nümeros que se han cantado y 
también se ha utilizado como al- 

+  macenamiento temporal para pre- 
parar los nümeros de los jugadores 
yen la rutina de sort. 

X es un nümero aleatorio entre 
1y 99. 

Z es el número de números can- 
tados. 


Y es el nümero de elementos 


que hay actualmente en el vector a 
intercalar. 


Comentamos 
exhaustivamente el 
programa, para facilitar su 
mejora o modificación. 


V(15) es el vector que contiene 
la lista de números ganadores. 


я B$(99,2) es una cadena дис con- 
tiene los valores correspondientes 
а los elementos en P(99). 


Cesel código del caracter del se- 
gundo caracter en el array B$. 


D es el código del caracter del 
primer caracter en el array В8. 

M es el contador para el array P 
en la sección de comprobación de 
los números. 


Comentarios 


Si desea jugar con sus propios 
cartones de BINGO y dejar que el 
ordenador se encargue de cantar 
los nümeros, entonces tendrá que 
suprimir los siguientes módulos 
del programa. 

1.3. Prepara los cartones de los 
jugadores. 

1.4. Visualiza los nümeros de 
los jugadores. 

3.1. Idem queel punto 1.4. 

Estos dos ültimos módulos son 
la misma rutina. También se pue- 
de alterar el programa e incluir, 
como opción dos maneras de jugar 
distintas, manual y automática. 


É——————— Pb, 


3990 REM жжжжжжжкжжжжжжжжжж 4125 REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
Ж SUBRUTINA DE ж XCOMPROBAR NUMEROS% 
ж сомековастом Жж ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
Ж DE RESULTADOS ж 
4130 LET M=1 
n ЖЖЖЖЖЕЖЖЕЖЖЕЖЖЖЖЖЖЖ 4140 FOR N=1 TO 15 
|. 4000 PRINT 4150 IF У(М) =Р (М) THEN PRINT ህ( 
_ 4010 REM DOOODOODOOOOOODOOQK N):" CORRECTO" 
Ж SELECCIONA EL ж 4160 IF V(N)=F(M) THEN 60 TO 42 


XCARTON  GANADORX oo 
ТЕРЕГІ 4170 LET M=M+1 
4020 FRINT "TECLEA CARTON GANADO 4180 IF M-Z«1 THEN GO TO 4220 
Í 8 RST" 4190 GO TO 4150 
4030 INFUT A$ 4200 NEXT N 
4040 4210 GO TO 4245 
АФ 4220 PRINT "XCARTON ";4$;" NO ES 
4020 та COMFLETOxX" с 
4050 CLS 4230 PRINT V(N) :" NO SE HA CANTA 
_ 4060 DIM VOS) ро" 
4070 РОК №1 TO 15 4235 REM ЖЖЖЖЖЖЖКЖЖЖЖЖЖЖЖЖКЖЖЖ 
| 24. өч" THE Я 
| а O IF A$="Q" THEN LET ህ(ክ)=8( XVUELVE AL PRINCIPIOX 
А መናዊ 3 "T ж FARA CONTINUAR ж 
| e а. EK XK XX XK KKK KE XK XX X 
| 4100 IF A$-"S" THEN LET V(N)=S( 4240 60 TO 4260 
№ 4245 PRINT ,,TAB 4:" XX ENHORABU 
4110 IF ልቆ="ፐ" THEN LET V(N)=T( ЕМА ЖЖ "¡TAR 4;"%%%%%%%%%%%%%%%% 
mE $$$"">>"FIN DEL JUEGO, USA > ВИМ” m 


Рака EMFEZAR DE NUEVO" 


` 4120 NEXT N 


Bingo de Paraninfo Soft 
Jugar sin salir de casa 


Existen varios programas co- 
merciales para jugar al Bingo. Co- 


mentamos brevemente el de Para- 


ninfo Soft, cuyo propósito es faci- 
litarnos los cartones y ayudarnos 
cantando los nümeros y verifican- 
do si hemos obtenido línea o bin- 
go. 

La cinta viene con dos versiones 
del juego: en una de las caras se 
nos permite jugar con los cartones 
que se incluyen con el cassette, 


con un nümero máximo de 20. 
Cada jugador selecciona su cartón, 
y después le indicamos al progra- 
ma los nümeros de los cartones se- 
leccionados. En la otra versión es 
el programa quien nos prepara los 
cartones aleatoriamente, debiendo 
cada jugador elegir uno de ellos. 

El programa puede hacer copia 
porimpresora de los cartones; para 
ello debemos usar la ZX printer o 
impresora compatible, o bien un 


Interface de impresora que soporte 
el comando COPY. 

Existen dos modalidades de jue- 
go: el programa puede ir sacando 
los nümeros automáticamente, 
con intervalo variable, o esperar a 
que nosotros pulsemos una tecla 
para presentarnos el nümero si- 
guiente. Los nümeros que ya han 
salido quedan expuestos en un ta- 
blero en la parte derecha de la pan- 
talla, mientras el ültimo nümero 


SER 


AS 


4250 REM bDOOODOOCOODOOOOOOODOEK 5160 PRINT AT 2#8+ሬ,2#6+14" " 
кво TO FIN DE PROGRAMAK 5170 LET W-W/2 
JDOOODOOOODOODOODOODOOEEK 5180 NEXT 6 

4255 60 TO 1200 2 IF LEN B$(N)<2 THEN 60 TO 

4269: RETURN 5200 LET Р=РЕЕК (15360+8*XD+R) 

4270 REM XXXXOXOOOOOOODOOOOOOK 5210 LET W-128 
X FIN DE SUBRUTINA X 5220 FOR Н=0 TO 7 
ыы ыы 5250 IF F<W THEN GO TO 5280 

4900 5240 РКІМТ АТ 2XR*5,2XH*16; "ШЕН 

5000 REM doXxXXoxooolooookoooooooor S250 PRINT AT 2XR*6,2XH«15; "NEN" 
ж SUBRUTINA DE PLOT ሄ 5260 LET F-F-W 
ተተ ችት ቾ ትች ቾ ሕት ሌአ KX KOK 5270 60 TO 6000 

5280 PRINT AT 2XR«5,2XH«16;" ." 

5020 LET B$(N)-STR$ A(N) 5290 PRINT AT 2XR46,2XHeléi" * 

5030 LET C=CODE B$(ND(1 TO 1) 6000 LET W=W/2 

5040 IF LEN В (ክ)<2 THEN GO TO сто REKT H 

5060 6020 NEXT R 

5050 LET D=CODE E$(N)(2 TO 2) 6040 RETURN 

5060 FOR R=0 TO 7 

5070 LET ЕЗРЕЕК (15560+8ቆሮ+8) 6050 REM ЖЖК ХАЖ ЖҚ Ж ЖҰЖ 

ЗОБО LET WALES x FIN DE SUBRUTINA X 

SOYO EO сто тона XXX KK XX XEFK KX 

5100 IF E¢W THEN GO TO 5150 

5110 PRINT AT 2# ፳+5, 240514 "ШШШ 6060 

5120 PRINT AT 2XR*6.2kG*1; "MN" 

5150 LET E=E-W 5070 REM ЖКЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

5140 60 TO 5170 ж FIN DEL PROGRAMA Ж 

5150 PRINT AT 2XR*5,2XG*1;" " ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ OX KK XK 


que ha salido se nos presenta am- 
pliado en la parte izquierda de la 
pantalla. 

Otra opción del programa nos 
deja que sea el programa quien nos 
avise cuando alguno de los jugado- 
res ha conseguido línea o bingo. 
Hay que tener cuidado, ya que el 
programa sólo avisa el cartón de 
numeración más baja que consiga 
línea o bingo. Si a la vez hubiera 
otro, se le debe pedir verificación 


Cantar iBINGO! 

es fácil, lo difícil 

es hacer trampa 

al programa. 
Ll 


al programa. Este nos pedirá que 
introduzcamos los nümeros de 
nuestro cartón y nos dirá si, efecti- 
vamente, hemos compartido el 
premio. Esta será la ünica manera 
de conseguir premio si le dijimos 


al programa que no cantara línea o 
bingo. 

En suma, nos encontramos con 
un programa ütil para los amantes 
del Bingo, ya que con él nunca se 
nos caerán las bolas por el suelo, y 
tampoco se nos adelantará el listo 
de turno aprovechando que nos ha 
tocado a nosotros cantar los núme- 
ros. Será el Spectrum quien se en- 
cargará de estas desagradables ta- 
reas. 


 SUSCRIBASE 
POR TELEFONO 


x más fácil, 
x más cómodo, 
x más rápido 


Telf. (91) 733 79 69 
7 días por semana, 24 horas a su servicio 


SUSCRIBASE A 


Un Interface no es ni más ni 
menos que un medio para que 
el ordenador se comunique 
con el mundo exterior. Todos 
los ordenadores llevan 
incluido alguno que les 
permite la comunicación con 
el televisor, el teclado o el 
cassette. Un Spectrum sin 
medios de comunicación con 
el exterior sería como una 
radio sin altavoz o un coche 
sin ruedas. 


arece claro, segün 6810, que 
P las comunicaciones con el 

mundo exterior forman par- 
ШШЕ te básica e imprescindible 

para el manejo y utilización 
de un sistema tan sofisticado como 
lo es un Ordenador Personal. 

Para el buen entendimiento de 
un Spectrum con el mundo exte- 
rior es imprescindible adaptar la 
información a los requerimientos 
del corazón de nuestro Spectrum, 
el microprocesador Z80-A. Esta es 
la función de los interfaces. 

El Spectrum está dotado de un 
circuito integrado denominado 
ULA que es el encargado de las co- 
municaciones con teclado, panta- 
lla, cassette, altavoz, ctc. 

¿Por qué no tener nosotros un 
Interface para las comunicaciones 
exteriores que nos interesen? 

El montaje, aquí presentado, nos 
permite el acceso al exterior de 
una manera muy versátil. 

Estamos hablando de un inte- 
grado de la familia Z80 llamado 
Z80-PIO. 


Z80-PIO 


La CPU 780 tienen dos tipos de 
instrucciones específicas para la 
comunicación con los dispositivos 
de entrada/salida. IN utilizada 


para introducir un dato desde el 
exterior y OUT para transmitir un 
dato al exterior. 

Existe un pin (el п.° 20) llamado 
ТОКО en la CPU 780, que se acti- 
vará cuando se realice una de estas 
Este pin nos 


dos instrucciones. 


Su versatilidad le per- 
mite mültiples aplica- 
ciones 


32988148 


permitirá diferenciar я la CPU 
está haciendo referencia a una po- 
sición de memoria (ОКО = “1”) o 
bien lo está haciendo a una direc- 
ción de entrada/salida (ОКО = Ø). 
La Z80-PIO (Peripherial Input 
Output) es un dispositivo que con- 
tiene dos ports de entrada/salida 
(el A y el B), cada uno de ellos de 
ocho bits; además, cuenta con cua- 
tro sefiales de protocolo. En la /i- 
gura a se describen la disposición 
de pines de este circuito integrado. 
Para el port А existen cuatro 
modos de direccionamiento: 


— Modo @ o modo sólo salida. 
Sirve para enviar datos al exterior 
desde la CPU. 

— Modo 1 o modo sólo entrada. 
Sirve para tomar datos desde el ex- 
terior y enviarlos a la CPU. 

— Modo 2 o modo bidireccio- 
nal. Engloba los dos anteriores. 


— Modo 3 o modo control. 
Cada línea del port tiene un signi- 
ficado diferente y cada una de ellas 
puede actuar como línea de entra- 


da, de salida o de petición de inte- 
rrupciones. 

El port B tiene los mismos mo- 
dos de funcionamiento que el А 
excepto el modo 2. 

Para la utilización de un port es 
imprescindible indicarle el modo 
de funcionamiento que nos intere- 
se. Esto se hará enviando previa- 
mente un comando de selección de 
modo de funcionamiento que más 
adelante se detallará. 


Direccionamiento 


En el Spectrum (véase cap. 23 
del manual) para las operaciones 
de entrada/salida con el teclado, 
pantalla, etc., se utilizan los cinco 
bits de menor peso del Bus de di- 
recciones para direccionar 
ports correspondientes a estas co- 
municaciones. 

Para evitar posibles interaccio- 
nes con los ports especificos del 
Spectrum será conveniente que los 
bits AO, Al, A2, A3, A4 estén a 
«1», es decir, que las direcciones 
asignadas a nuestros montajes con- 
tengan en estos cinco bits un «1». 

El pin 6 (B/A) de la Z80-PIO es 
la entrada de selección de PORT. 
Si éste es «0» nos estaremos гей- 
riendo al port A y si es «1» al port 
B 


El pin 5 (C/D) indica, si está a 
«1», que el contenido del Bus de 
datos es un comando de selección 
de modo de funcionamiento, y si 
está a «0» la información conteni- 
da en dicho Bus será un dato. 

El pin 4 (CE), activo, a nivel 
bajo, indica a la Z80-PIO que pue- 
de utilizar el Bus de datos. 

Con motivo de hacer coincidir 
la dirección asignada al Port A con 
la utilizada por el KEMPSTON 
JOYSTICK hemos unido en nues- 
tro montaje el pin B/A de la 
280-Р10 con el А5 del Bus de di- 
recciones, el C/D con el A6 y el 
C/E con el A7, quedando configu- 
rada la siguiente tabla de direccio- 
nes: 


los’ 


Uso de la PIO 


Para la utilización de un port, 
previamente hay que seleccionar 
su modo de funcionamiento, que- 
dando éste inalterado hasta la pró- 
xima selección o un apagado del 
ordenador. 

Selecciones de modo de funcio- 
namiento: 

— Modo 0 (sólo salida). Para la 
selección de este modo de funcio- 
namiento hay que enviar el co- 
mando hexadecimal OF equiva- 
lente a 15 en decimal. 

En concreto, el port A quedará 
programado en este modo ejecu- 
tando desde el Basic la instrucción: 
OUT 95,15. Para el ром B sería: 
OUT 127,15. 


se presenten en los hilos del port 
correspondiente. 


Por ejemplo: haciendo LET у= 
IN 31, el dato presente en el port 
А quedará almacenado en la varia- 
ble v. Con LET v = IN 63, sería el 
dato presente en el port B el alma- 
cenado en la variable v. 


— Modo 2 (bidireccional). Este 
modo sólo es posible en el port A. 

Se selecciona haciendo: OUT 
95.143. 


En este modo, cuando se haga 
OUT 31,DATO, el DATO apare- 
сега, como en el modo 0, en los hi- 
los del port A y cuando se haga 
LET у< IN 31, el funcionamiento 
será el mismo que el del modo 1. 


А7 A6 A5 А4 АЗ А2 Al AØ hex. dec. 
PORT A COMANDO О 1 Do | | | SF 95 
DATO Quer Om M | | | IF з! 
COMANDO O | ИЧ К КӨ, ЧИЛИ тт ері 127 
PORT 8 
DATO 0 0 17101 | | | ЗЕ 63 


En este modo de funcionamien- 
to podremos enviar al exterior por 
el port en cuestión, cualquier dato, 
comprendido entre 0 y 255, que 
aparecerá en binario en los ocho 
hilos del port. De esta manera, 
para el port A siempre que haga- 
mos OUT 31,DATO aparecerá el 
DATO, escrito en binario, en los 
hilos АО а A7 del port A de la PIO. 
Para el port B sería OUT 
63,DATO y el DATO aparecerá 
en los hilos BO a B7 del port B de la 
PIO. 


— Modo 1 (sólo entrada). Para 
seleccionar este modo de funciona- 
miento habrá que hacer: 


Port A: OUT 95,79 
Port B: OUT 127,79 


Este modo permite la lectura de 
los datos, escritos en binario, que 


— Modo 3 (control). Se selec- 
ciona haciendo: 


Por A: OUT 95,207 
Port B: OUT 127,207 


En este modo de funcionamien- 
to se puede escoger de cada port 
los hilos que deseemos como en- 
tradas o como salidas. Para indicar 
qué hilos serán de entrada y cuáles 
de salida hay que enviar un segun- 
do comando cuyo valor se obten- 
drá considerando el siguiente for- 
mato: 


Para los hilos que se deseen 
como entrada hay que poner un 
«1» y para los de salida se pondrá 
un «0». 


Haremos entonces: 


Port A: OUT 95, BIN X;X,X.X, 
XXXX, 


Port B: OUT 127,BIN X;X,X;X, 
XXX. 

Por ejemplo: Si queremos tener 
en el port A los hilos A4, АЗ y Al 
como entradas y el resto como sali- 
das tendríamos que hacer: 

OUT 95,207: OUT 95,ВІМ 
00011010 

Selecciona modo 3: Especifica 
líneas 1/0. 

Haciendo LET v = IN 31 se 
guardará en la variable v el dato 
compuesto por la información pre- 
sente en las líneas definidas como 


AT А6 А5 ለ4 
B7 B6 85 B4 


Ху Cu Kg er nq 


А А BU AD 
83 82 в! - Bg 
сие UT dU 


entradas y la ültima información 
enviada por líneas de salida. 

Haciendo OUT 31, DATO sólo 
enviaremos la información corres- 
pondiente a las líneas selecciona- 
das como salidas ignorando la co- 
rrespondiente a las líneas de entra- 
da. 


Montaje 


Este montaje presenta cierta di- 
ficultad por el hecho de estar reali- 
zado en circuito impreso de doble 
cara junto con la necesidad de te- 
ner que hacer bastantes soldaduras 
en ambas caras. 

Los taladros señalados con la le- 
tra p, en la figura adjunta, son 
puentes de conexión entre las dos 
caras. Estos puentes se pueden rea- 
lizar, por ejemplo, con trozos de 
patillas de resistencias. 

Es indispensable el uso de un zó- 
calo de 40 pines para la PIO con el 
fin de evitar la inutilización del in- 
tegrado por excesivo calentamien- 
to al efectuar las soldaduras. 

En el prototipo se ha soldado di- 
rectamente el conector a la placa 


de circuito impreso, aunque pue- 
den soldarse a través de unos hili- 
llos de los usados normalmente 
para cableado. 

Hay que recordar que nuestro 
port A (cuya dirección es la 31) 


coincide con la utilizada por el 
KEMPSTON JOYSTICK lo que 
nos permite utilizar el montaje 
descrito como Interface para dicho 
tipo de Joystick. Para ello habrá 
que hacer funcionar el port A en 
modo de sólo entrada. 


El KEMPSTON JOYSTICK 
utiliza la siguiente asignación de 
bits: 


A4: Disparo. 
A3: Movimiento hacia arriba. 


A2: Movimiento hacia abajo. 


Al: Movimiento hacia la iz- 
quierda. 


A0: Movimiento hacia la dere- 
cha. 


Estas señales son activas a nivel 
alto, es decir, se efectuará el movi- 
miento correspondiente cuando 
haya tensión de 5 y en el bit asig- 
nado. Los restantes bits, no men- 
cionados (A7, A6, A5), no están 
conectados. 


Nosotros hemos utilizado este 
montaje con un Joystick SPEC- 
TRAVIDEO mod. Quick Shot 


INTERRUPCION 
DEL CONTROL 


PUERTA, А 
1/0 


PUERTA, В 
1/0 


Esquema de las funciones de la Z80-PIO. Los números en el interior 
corresponden a las asignaciones de las patas del circuito integrado. 


TM II y hemos conectado los hilos 
segün la relación: 


A0: marrón. 
Al: verde. 
A2: azul. 
A3: blanco. 
A4: naranja. 
AS: rojo. 


Una particularidad muy impor- 
tante, para el buen funcionamien- 
to del Joystick, es la de que hay 
que hacer, antes de cargar el juego 
deseado, la instrucción: OUT 
95,79, con el fin de que el port A 
quede debidamente programado 
en el modo de sólo entrada. 


Futuros montajes con 


la PIO 


Evidentemente, la utilización de 
la Z80-PIO como Interface para un 
Joystick sería un derroche de tra- 
bajo y dinero. 

Este montaje, al que podríamos 
bautizar como Interface @, tiene 
infinidad de aplicaciones (sólo li- 
mitadas por la imaginación), tales 
como: Controlador Doméstico, 
Voltímetro de baja frecuencia, Os- 
ciloscopio de baja frecuencia con 
memoria, Cuentavueltas múltiple 
para Scalextric y similares, Con- 
trolador de tráfico para trenes eléc- 
tricos, Generador programable de 
baja frecuencia, Control de inver- 
naderos, peceras, etc., Interfaces 
serie y paralelo para impresoras, 
etc. 


Cara superior de la 
placa de circuito 
impreso. Los 
terminales marcados 
P corresponden a 
puentes entre la cara 
superior y la inferior. 
En la parte superior 
de la figura están las 
pistas del conector al 
bus de expansión del 
Spectrum. Las 
resistencias deben 
soldarse en las salidas 
de los dos ports en la 
parte inferior de la 
figura. 


Esperamos seguir con algunas aplicaciones de este montaje 
en nuestros próximos números. Y también esperamos que 
nos enviéis los desarrollos que realicéis a partir de este 
montaje ampliando las posibilidades de comunicación del | 


Spectrum. 
Leandro Rodriguez 


0000000 00000000 Y 
Cara inferior del 


circuito impreso. 
Atención a los 
puentes con la cara 
superior. 


| 


1 usted ya maneja el lenguaje 
máquina y sabe el significa- 
do de términos tales como 
«LDA», «ІХ», «byte» у 
«bit», entonces esta serie NO 
es para usted, ya que está plantea- 


da como un aprendizaje desde los 
principios básicos subiendo poco a 
poco hasta dominar este «idioma» 
de entendidos. En definitiva, va 
destinada a aquéllos que creen que 
el lenguaje máquina (o el ensam- 


blador) son los cuchicheos que se 
cuenta un ordenador a otro, o la 
persona que los monta en la fábri- 
ca o para los que creen que para 
manejarlo se necesita soldador y 
estaño (cosa totalmente falsa). 

Quizás en algunas partes, como 
sucede este mismo mes, nos exten- 
damos mucho en explicaciones 
teóricas que a alguien le podrán 
parecer superfluas y destinadas a 
llenar hojas, pero a los escritores 
técnicos (por lo menos a nosotros) 
no les pagan por palabra escrita, y 
si algo se incluye es porque será 
necesario más adelante para com- 
prender otras instrucciones más 
prácticas. 

Junto a la serie en sí misma irán 
apareciendo, a lo largo de los me- 
ses unos comentarios sobre los 
programas ensambladores existen- 
tes en el mercado. Estos progra- 

as, cuya función explicamos más 
adelante, se pueden considerar in- 
dispensables para trabajar еп len- 
guaje máquina debido al trabajo 
que ahorran y si no posee ninguno 
piense en comprarlo si quiere par- 
ticipar activamente en este «se- 
rial»; para elegir el que más le con- 
venga nada mejor que leer estos 
comentarios. 

Por último, debemos hacer una 
recomendación importante. En in- 
formática, al igual que en otras 
ciencias, el saber la teoría no im- 
plica necesariamente el saber ha- 
cerlo prácticamente y se puede lle- 
var desagradables sorpresas si se 
pone a hacer un gran programa sin 


haber practicado previamente par- 
te por parte. Si tiene un ordenador 
65 para usarlo, no lo olvide. 


Cómo funciona un ordenador 


Está demostrado científicamente 
que los ordenadores no funcionan 
porque tengan dentro una pandilla 
de enanitos que manejen ábacos a 
mucha velocidad, ni tampoco por 
intuición, todos poseen una estruc- 
tura básica muy similar que, aun- 
que no necesaria para programas, sí 
es conveniente saber cómo es para 
poder ver el sentido lógico de las 
instrucciones. 


La estructura interna de un or- 
denador es la que se ve en la figura 
| en la que se distinguen varios 
bloques tales como microprocesa- 
dor, memoria (RAM y ROM) y 
dispositivos de entrada y salida 
(E/S). Todos ellos son comunes a 
todos los ordenadores y las diferen- 
cias residen en el tipo de estos dis- 
positivos, pero no en su existencia, 
ya que siempre están. 


El más importante de todos estos 
bloques (o por lo menos más famo- 
50), es el microprocesador. Este es 
lo que se denomina «corazón» de 
la máquina, aunque más bien se le 
puede denominar el cerebro ya 
que es el que se encarga de realizar 
todos los procesos y de dirigir a los 
demás. En el caso del Spectrum, el 
microprocesador se denomina 
2-80 y es ampliamente conocido 
ya que lo llevan otros ordenadores 
existentes en el mercado (Amstrad, 
MSX y todos los que funcionan 
con CP/M). Este viene a ser el car- 
lero que reparte las rtas mientras 
que los demás constituyen los bu- 
zones o los almacenes de las carte- 
nas. 


La memoria (RAM o ROM) se 
asemeja a los cajetines existentes 
еп las oficinas de correos en los 
que se distribuyen las cartas para 
ser repartidas luego. Aunque como 
veremos estos cajetines tienen 
unas características bastante espe- 


ciales que los diferencian de los 
reales. 

Por ültimo los dispositivos de 
entrada y salida constituyen los 
buzones donde dejamos las cartas 
y de donde las recogemos, es decir, 
por donde entra y sale la informa- 
ción. Los ejemplos más claros de 
estos dispositivos son el teclado y 
la pantalla, aunque también pue- 
den existir otros como son la im- 
presora, los joystick, etc. 


Los sistemas de numeración. 
O cómo 1000 puede ser 
distinto de 1000 


Esta afirmación tan sorprenden- 
te tiene su razón de ser. Nosotros 
los humanos estamos acostumbra- 
dos a operar en decimal, lo que 
quiere decir, ni más ni menos, que 
9 más 1 es 10. Pero 105 ordenado- 
res tienen la costumbre de operar 
en binario. En este caso resulta 
sorprendente ver que 1 más | es 
10, aunque muchas veces (por 


ejemplo, trabajando en BASIC) sc 
nos muestran los nümeros en deci- 
mal para simplificarnos la tarca. 
En lenguaje máquina esto no suce- 
de y hay que acostumbrarse a ope- 
rar en binario y en hexadecimal, 
que es otro modo de expresar los 
nümeros. 

Es muy probable que con el pá- 
rrafo anterior se haya armado un 
lío, y no es extraño, ya que éste es 
uno de los puntos más difíciles de 
explicar de todos. Para simplificar 
todo y hacerlo más comprensible, 
vamos a basarnos no en números, 
sino en cantidades, para ello coja 
una caja de cerillas (lo sentimos 
por aquéllos que usan mechero) y 
dispóngalas a su lado. Nosotros las 
representaremos aquí por asteris- 
cos (*) pero el proceso será el mis- 
mo. 

Ya sabemos que en decimal «*» 
es 1, «**» es 2 y así sucesivamente 
hasta «*********» que significa 9. 
También sabemos que si juntamos 
«*» (1) y «не, (9) obtene- 
mos «нека (10). Esto lo e 


presamos diciendo que «9 más 1 es 
10». Esto lo comprendemos todo y 
sabemos que 90 más 10 es 100 
(perdone que no lo pongamos con 
asteriscos pero no tenemos espa- 
cio) ya que 0 más 0 es O y 1 más 9 
es 10. Pero en binario es distinto, 
ya que, sólo existen los nümeros 
Cero y uno, en este sistema cero 
significa que no tenemos ninguna 
cerilla y uno es «*». Pero uno más 
uno (iiiPreste atención!!!) es 10, lo 
que haciéndolo con cerillas es «*» 
más «*» es igual a «**». Por lo que, 
por la relación que acabamos de 
expresar significa que 10 es «**» 
en binario, mientras que en deci- 
mal esta cantidad se expresa como 
2. Por otra parte, en binario sigue 
siendo cierto que 0 más 1 es 1, рог 
lo que si en binario decimos 10 
más 1, queda 11, que es «**» más 
«*», o sea «***», y 11 más 1 (tam- 
bién en binario) es 100 (1 más 1 es 
10 y nos llevaremos 1, en el si- 
guiente sucede lo mismo y queda 
el 100) que con cerillas da «****». 
Vemos por tanto que los nümeros 
son relativos y que pueden expre- 
sar diversas cantidades dependien- 
do de la base en que estemos traba- 
jando. Para no confundirnos a par- 
tir de ahora pondremos un «b» de- 
trás del nümero si éste está en bi- 
nario y si no hay nada es que está 
en decimal. 

Al igual que hemos visto el siste- 


ma binario y el decimal, existe una 
cantidad infinita de sistemas de 
numeración, ya que la ünica dife- 
rencia entre unos y otros está en el 
significado del término, «10», o lo 
que es lo mismo, la cantidad máxi- 
ma que se puede expresar con una 
sola cifra, que será una menos que 
la indicada por «10». En el sistema 
decimal (decimal < base 10) un 
«10» es «********** en el binario 
(binario = base 2) «10» es «**». De 
lo que se deduce que en cada siste- 
ma el «10» es la cantidad indicada 
por la base у sólo existirán пите- 
ros de un solo dígito inferiores а 
éste, ya que si no, habría dos sím- 
bolos para expresar la misma can- 
tidad (por ejemplo 10 y 2 en bina- 
rio) lo que va en contra de los fun- 
damentos de las matemáticas, na- 
turalmente es necesario saber en 
qué base se expresa la base de un 
sistema (si nos dicen que operamos 
en decimal, o sea en base 10, hay 
que saber en qué Базе está este 10) 
pero ésta, por definición siempre 
es la usada por los humanos (deci- 
mal = «*****ee***y y binario = 
e). 


г 


MICROPROCESADOR 


Figura 1. 


MEMORIA 


RAM ROM 


DISPOSITIVOS DE | 
ENTRADA ¿SALIDA 


Si por ejemplo, nos dicen que 
trabajamos en base cinco, sabre- 
mos que сп ese sistema, «10» es 
«*****» y рог tanto 4 + | = 10. 
Asimismo, sólo existirán en base 
los dígitos «0, 1. 2, 3 y 4» y no ten- 
drán sentido nümeros como «517» 
ዐ «912» ya que incluyen cifras no 
válidas. Si decimos que operamos 
en base octal (8) el proceso será el 
mismo, pero con la excepción de 
que sólo existen «0, 1,2, 3,4, 5, бу 
Ty 10= AOS 

En todos los sistemas las opera- 
ciones se hacen como sabemos, 
pero teniendo en cuenta el límite 
de dígitos. Tomemos como ejem- 
plo la suma y la resta (las más usa- 
das), si trabajando en base octal, 
nos ponen el siguiente problema: 
451 + 743, la solución se hallará 
diciendo: 3 y 1,4 y 5 NO es 9 (este 
número no existe), si no que debe- 
mos expresar el 5 como 4 + Гу 
queda 4 +4 + 1, sabiendo que 4 + 4 
es 10, queda que 4 + 5 es 11, en la 
tercera columna queda 4 más 7 
más 1 que nos llevamos de antes, 
ahora bien, 7 más 1 es 10 y diez 
más cuatro es 14, por lo que la 
suma nos da de resultado 1414 (en 
octal). En los sistemas de numera- 
ción que hemos estudiado hasta 
ahora, los procesos son más senci- 
llos, ya que en decimal ya sabemos 
(el que hemos manejado siempre) 
y en binario sólo existen tres ope- 
raciones distintas 0 +0 = 0, 0 + 1 = 
1 (ambas similares 8 las de deci- 
mal) y 1 + 1 = 10. Sabiendo esto no 
resulta ningün problema operar. 

А! principio del capítulo co- 
mentamos otra base que es la de- 
nominada hexadecimal. Como he- 
xadecimal significa 16, sabremos 
que en esta base 10 = 
аав O lo que es lo 
mismo, 16 en decimal. Pero nos 
encontramos con un problema, si 
10 tiene este valor, ¿cómo se ex- 
presa 9 + 1? Como hemos comen- 
tado anteriormente, debe ser un 
nümero de una sola cifra ya que no 
puede haber ningün valor inferior 
а «10» con dos cifras, pero nuestro 
sistema de numeración no dispone 
de lo necesarios, por lo que tendre- 


mos que recurrir a otros. En lugar 
de inventarlos nuevos recurrire- 
mos а un grupo bien conocido: el 
alfabeto. Sabemos que tenemos 
que usar seis nuevos (9 + 1, 9 + 2, 9 
+3,9+4,9+5y9+6), ya que 9 +7 
es «10». Para ello elegiremos las 
seis primeras letras y se las asigna- 
remos en el mismo orden, por lo 
que en hexadecimal: 9 + 1 =A, 9 + 
2=В,9+3=С,9+4=0,9+5=Е, 
9+6=РЕ, Expresado en cantidades 
sale A = «eee E = 
queet, Evidentemen- 
te F + | = 10, A + 5 =F, etc. Para 
representar ип nümero hexadeci- 
mal le añadiremos detrás la letra 
«h» para distinguirlo de los demás. 

Un ültimo detalle a explicar es 
el de pasar de una base a otra. Para 
pasar de cualquiera a decimal, el 
proceso es muy sencillo, si nos fija- 
mos, por ejemplo en el sistema bi- 
nario, en el valor de 1b, veremos 
que cs 1 <*>, 10b es 2 «**», 100b es 
4 «****». Y | es2 elevado а cero, 2 
es 2 elevado a uno, 4 es 2 elevado а 
dos. Por tanto, si numeramos las 
distintas posiciones de los nüme- 
ros binarios de derecha a izquierda 
empezando desde cero (figura 2), 
veremos que el valor en decimal de 
cada posición es la correspondien- 
te potencia de dos, por lo que para 
hallar el valor decimal basta multi- 
plicar el correspondiente digito 
por su potencia de dos y luego su- 
marlos todos, Este proceso se 
muestra en la figura 3. 

En hexadecimal el proceso es si- 
milar pero los números que debe- 
mos multiplicar son la correspon- 
diente potencia de 16 (que es la 
base en este caso) por el valor co- 
rrespondiente en decimal del digi- 
to del número (ላከ = 10, 8ከ = 11.... 


Fh = 15). El proceso para números 
hexadecimales se muestra en la fi- 
gura 4. 

Con todo esto esperamos que 
hayan comprendido cómo funcio- 
nan las distintas bases y en caso de 
duda recurran a la caja de cerillas. 


te habrá oído hablar mucho de él. 
Este es una especie de interruptor 
que sólo puede tener dos estados: 
encendido y apagado. Cuando está 
encendido decimos que vale 1 y 
cuando está apagado decimos que 
tiene un 0. Si ponemos dos «bits» 
juntos, veremos que puede adoptar 
los siguientes valores entre los dos: 
«00», «01», «10» y «11». Salta rá- 
pidamente a la vista que éste es el 
sistema binario, por lo que con bits 
podremos expresar nümeros en 
sistema binario (y si es necesario 


Figura 3. 
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1*%64+1*52+1*8+ 1*2+1*1= 107 


Algunos términos de uso 
muy común 


Un ültimo punto que se debe to- 
car antes de pasar a una descrip- 
ción completa del ordenador, es el 
de los términos comunes emplea- 
dos a lo largo de toda la serie. Mu- 
chos de ellos son ampliamente ma- 
nejados por todos aün sin saber 
qué significan, otros son totalmen- 
te desconocidos. De todos ellos ha- 
remos una descripción para que se 
puedan manejar con conocimiento 
de causa. 


El primero de todos es «bit» (no 
confundir con byte). Probablemen- 


POSICIONES: 


SET ^4 


VALORES: 


` Figura 2. 
bos urb 
EFE 
а= cgo 4 t e 


Numeros: 1 1-1 1-1 1-1-1 


luego podremos pasar a otro siste- 
ma). 

Byte es el segundo término, y sin 
duda el más famoso, un byte es 
simplemente un grupo de 8 bits, de 
modo que el valor menor que pue- 
de adoptar es 00000000b y el 
mayor 11111111, que se corres- 
ponden al 0 y al 255 decimales. 

«K» es la abreviatura de Kiloby- 
tes, que No significa 1.000 bytes, 
sino 1.024 bytes. La razón de esta 
diferencia está en que 1.024 es una 
potencia de 2 y 1.000 no lo es, por 
lo que al ordenador le resulta mu- 
cho más fácil manejar el primer 
nümero. 

ASCII es la abreviatura de 
«American Standard Code for In- 


Jormation Interchange» y es un 


sistema de códigos empleados para 
poder almacenar letras y otros 
simbolos dentro del ordenador, ya 
que en principio éste sólo puede 
almacenar números en sus memo- 
rias. 

CPU es la abreviatura de «Cen- 
tral Proccesing Unit», en palabras 
llanas este es el microprocesador 


D 


(el Z-80) pero llamado de otra for- 
ma. 

Nibble, este término bastante 
poco conocido indica la mitad de 
un byte, es decir, cuatro bits. 

Sofiware es el nombre que se uti- 
liza para designar cualquier tipo de 
programa, incluyendo los que vie- 
nen metidos dentro de él desde la 
fábrica. El software es pura infor- 
mación (datos o instrucciones para 
ejecutar programas) y se debe 
transmitir por algún medio (listado 
de impresora, cinta de cassette, 
microdrive, etc.) pero estos сіс- 
mentos no constituyen el software, 
sino la información que transmi- 
ten. 


Hardware es el opuesto del ante- 
rior, en general es todo componen- 
te fisico del ordenador, cualquier 
cosa que se pueda tocar. Normal- 
mente se refiere a los circuitos que 


El término bug surgió 
cuando, en los primeros 
ordenadores, las máquinas 
resultaban averiadas al 
introducirse polillas entre las 
vulas. 
[si] 


lleva. La palabra significaba origi- 
nalmente en inglés «chatarra». 

Bug es literalmente «bichito» 
(véase cucaracha, polilla, etc.) 
pero ha evolucionado por caminos 
extraños hasta convertirse en un 
término empleado para indicar un 
error en un programa. Dice la 
leyenda que el término se empezó 
a usar después de que una polilla 
estropease uno de los primeros or- 
denadores IBM existentes allá por 
los lejanos aiios 60. 

El término «dump» se utiliza 


POSICION: А 4 ща 
VALOR: 4096 256 


NUMERO: 


rom 


Figura 4. 
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10*4096+1*256+9°16+15*1= 41375 


para indicar un volcado de la me- 
moria, como esta frase les habrá 
dicho lo mismo que la primera (es 
decir, nada), la explicaremos. Mu- 
chas veces cuando falla un progra- 
ma en lenguaje máquina es necesa- 
rio mirar todos los contenidos de 
memoria y ver dónde ha fallado el 
programa. Para ello se obtiene un 
listado donde se muestra el conte- 
nido de todas las memorias. Este 
listado es el denominado «volcado 
de memoria» o «dump de memo- 
ria». 

La pila o «stack» es un sistema 
de almacenamiento de datos muy 
usado que funciona como una me- 
moria LIFO (ver definición si- 
guiente). 

LIFO. Sistema de almacena- 
miento «Last In, First Out», que 
significa ültimo en entrar, primero 
en salir. Y significa que si en un 
sistema de éstos introducimos los 
nümeros 7, 45 y 12 por este orden, 
el primero que podemos sacar es el 
12, el siguiente el 45 y por último 
el 7. Funciona de un modo similar 
a una pila de platos de la que sólo 
podemos coger el superior. 

FIFO. Abreviatura de «First In, 
First Out» (primero en entrar, pri- 
mero en salir). Al contrario que el 
anterior, en este sistema se saca 
primero el primer nümero que en- 
tró, de modo que si introducimos 
los mismos datos que en el caso 
anterior, primero sacaremos el 7, 
luego el 45 y por ültimo el 12. 

Con esto quedan explicados los 
principales términos. Los demás 
que necesitemos los iremos expli- 
cando segün se necesiten. 

Fernando García 
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La gestión, actualización y presentación de grandes cantidades de datos es una de las 
aplicaciones más importantes de los ordenadores personales. A pesar de que el 
cassette no es el medio de almacenamiento idóneo, debido a su baja 

velocidad de transferencia y a la imposibilidad de 

rebobinar o avanzar sin intervención del 


ordenador, existe 


 asterFile intenta cubrir lo 
mejor permitiéndonos 


un creciente 


número de usuarios que А. -añadir un programa en 
no se resigna a dejar de utilizar su ጋ 
Spectrum para la gestión de pequeños ficheros. un registro. Por este sistema se 
Para ello existen dos posibilidades: utilizar puede calcular algún campo de 
programas específicos, diseñados para la aplicación cada ficha en función de los conte- 
concreta que se quiera realizar, o bien un nidos de otros campos, o realizar 
programa de base de datos, mucho más general, cuentas del número de ocurrencias 
ን 2 de una campo determinado, etc. А 

pero que no podrá procesar todos los 


esto se le anade una base de datos 
aspectos que deseemos de nuestro fichero, o nos rápida, con una gran variedad de 


obligará a hacerlo manualmente. formatos de escritura. 


eBase de Datos 


ILE 


Comenzamos, para quienes no 
estén habituados, por la termino- 
logía de la base de datos. Un fiche- 
ro está formado por un nümero in- 
determinado de fichas o registros, 
cada uno de los cuales se compone 
de distintas líneas de información 
En MasterFile el nüme- 
imo de campos es de 26, 
cada uno de los cuales puede con- 
tener hasta 128 caracteres de info 
mación. La estructura de cada r 
gistro no es rígida, pudiendo llevar 
los campos en cualquier orden y 
omitir alguno de ellos. La capac 
dad de memoria llega hasta 32 К 
para datos, dependiendo de la can- 


tidad de memoria que utilicemos 
en nuestro programa. 


Una de las características más 
interesantes en MasterFile es que 
puede mostrar la información con 
hasta 36 formatos diferentes, que 
quedan almacenados en el ordena- 
dor. Así, un formato podría listar a 
los empleados de una empresa por 
orden alfabético, con nombre, di- 
rección, teléfono y cargo, mientras 
otro nos proporciona la lista por 
departamentos, con el cargo y el 
salario. El cambio de uno a otro es 
muy sencillo, y no exige más que 
introducir el nümero del formato. 


*para Spectrum 


La presentación en 
pantalla permite hasta 51 
caracteres por línea 


Otra característica que aparece 
en la versión 08 y siguientes es el 
Micro-Print, que permite la im- 
presión con 42 ó 51 columnas en 
la pantalla de nuestro televisor. Se 
pueden mezclar los tres formatos 
de impresión en la misma línea, y 
el único inconveniente es que los 
atributos no coinciden exactamen- 
te con los límites de los caracteres 
cuando se trabaja a más de 32 co- 
lumnas. 


A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 


Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 
con esta funda, y beneficiese 


de un 3090 de descuento 
sobre su precio normal. 


Smithson 


Williams 


La definición de formatos de im- 
presión resulta ser una de las tareas 
principales en la creación de cual- 
quier Base de Datos, ya que la uti- 
lidad del programa depende de la 
raayor parte de las veces de lo fle- 
xible y completa que sea la presen- 
tación de esta información, sea en 
pantalla o impresora. Para editar 
un formato se debe pulsar E en el 
menú principal. Tras ello, la op- 
ción A permite crear un nuevo for- 
mato, y la R repasar o alterar un 
formato ya existente. Las caracte- 
rísticas generales de cada formato 
incluyen color de borde y papel, 
número de líneas entre registros y 
secuencia de presentación de los 
registros. 


Unos formatos de impresión 
flexibles son el alma de 
cualquier Base de datos 


Los formatos son bastante gene- 
rales, ya que permiten mostrar des- 
de 1 hasta 22 registros en cada 
pantalla, y en cualquier orden, ya 
que el campo de indexación es a 
bitrario. A partir de las caracterí 
ticas generales, se pueden añadir 


tantos elementos particulares 
como queramos. Estos pueden ser 
Literales, es decir, textos en una 
posición fija de la pantalla, Cajas, 
que se utilizan para enmarcar da- 
tos, y líneas horizontales o vertica- 
les, importantes a la hora de tabu- 
lar nuestro fichero. 

Eso en cuanto a los elementos 
estáticos. Pero lo más importante 
de cualquier formato son los ele- 
mentos dinámicos, es decir, aqué- 
1105 que referencian datos de nues- 
tro fichero. Para ello hay que de- 
cile al programa qué campo de 
cada registro debe utilizar, en qué 
línea de la pantalla se debe comen- 
zar la impresión, si usamos o no 
Micro-Print, columna de inicio, 


Los formatos resultan muy 
complicados, pero 
aprovechan al límite las 
posibilidades del Spectrum. 


anchura y nümero de líneas, atri- 
butos de color, si queremos o no 
que nuestro texto vaya enmarcado 
con el color de papel elegido y, fi- 
nalmente, el texto que debe escri- 
bir el programa si el campo indica- 
do está ausente de un registro. 

Otro elemento delicado de una 
Base de datos es la facilidad y flexi- 
bilidad con que se puede definir la 
estructura de campos de un fiche- 
ro. MasterFile resulta potente pero 
confuso, como en otros casos. Para 
definir un fichero, nos dice el ma- 
nual, debemos comenzar por crear 
un fichero vacío. Esto implica bo- 
rrar todas las definiciones de for- 
matos y campos de datos. 

A continuación, la opción N del 
menu principal nos permite alterar 
las definiciones de campos. Como 
en ese momento no tendremos 
ninguna activa, debemos pulsar A 
(añadir) para introducir nombres 
de campos. Cada campo se identi- 
fica por una letra, y se puede 
acompafiar por un nombre de has- 
ta 128 caracteres, lo que nos per- 
mitirá recordarlos con más facili- 
dad. Una vez definidos todos los 
nombres de nuestros datos pode- 
mos pasar a definir o alterar, como 
se mostró anteriormente, los for- 
matos de impresión. 

Otras opciones en el menú prin- 
cipal permiten listar todos los for- 
matos eligiendo uno de ellos, car- 
gar y salvar ficheros, invertir la se- 
lección de registros y borrar los re- 
gistros seleccionados. Las restantes 
opciones son más complicadas, in- 
cluyendo las opciones ya comenta- 
das de editar formatos y nombres 
de campos, además de menús de 
büsqueda, presentación visual, etc. 

El menú de presentación visual, 
al que se accede pulsando D en el 
menú principal, permite ver el fi- 
chero mediante el primer formato 
que definimos, o el ültimo que se 
ha utilizado. La tecla Q muestra 
las posibles opciones en este 
modo, bastando otra pulsación de 
la misma tecla para volver a ver los 
registros en pantalla. Pulsando N 
pasamos a la siguiente página de 
listado. 


Andrews K G Г 


ino address entered for 
this recorda) 


Press Н to view successive 
тоге” appears in line 22. 


recor ds unti t 


ча 


- Showing Micro-print 42/5 


1 and with 2 гесзеразе. 


Carsutinot A ] E 3 
Sus 


Mi 


Harrow Lane 
dburu 
аах 


p Бе had bought MASTERFILE earlier. 
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Las teclas 1-9 permiten avanzar 
de uno a nueve registros. En la ver- 
sión 09, la tecla 0 permite volver 
atrás un registro. B vuelve al co- 
mienzo del fichero. Si pulsamos U, 
el programa pasa a modo edición 
con el registro que aparece en la 
parte superior de la pantalla, y E 
nos permite borrar el registro en la 
misma posición. La letra O dese- 
lecciona el registro en la parte alta 
de la pantalla, y C crea una copia 
situándola a continuación 

R se utiliza para cambiar el for- 
mato, manteniendo activo el regis- 
tro superior. Resulta muy útil para 
buscar mediante un formato con 
20 registros por página y. una vez 
hemos situado en posición el regis- 
tro deseado, cambiar a un formato 
más amplio, que muestre la totali- 
dad de los datos. En este momento 
nos resulta útil saber que, pulsan- 
do P, se obtiene una copia de la 
pantalla, y que, si a continuación 
tecleamos A, cada nueva página 
que se muestre irá a la impresora. 


Búsqueda en nuestro fichero 


De poco sirve tener un fichero 
en el ordenador si tenemos que re- 


nu 
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pasar registro a registro para en- 
contrar el dato que nos interesa. 
Por ello, el menú principal dispo- 
ne de la opción S para buscar y se- 
leccionar parte de las fichas de 
nuestro archivo. Primero debemos 
indicarle si queremos que seleccio- 
ne a partir de todo el fichero o bien 
a partir de las fichas que habíamos 
seleccionados previamente. Des- 
pués el programa nos pregunta el 
campo en el que debe realizar la 
selección, y si ésta debe ser núme- 
rica o alfanumérica. Para cada 
caso existen varios tipos de com- 
paraciones: mayor, igual, menor, 
distinto y, en el caso de caracteres, 
ocurrencia de una palabra en un 
campo. Para finalizar la búsqueda, 


Se pueden seleccionar y 
ordenar ficheros con todas 
las opciones razonables. 


el programa nos pregunta qué ca- 
dena o nümero debe utilizar para 
la comparación, y nos devuelve el 
nümero de fichas seleccionadas 
tras la büsqueda. 

Otra opción interesante del pro- 
grama es la opción T, que calcula 
las sumas y promedios de los cam- 
pos numéricos del fichero. Si du- 
rante el proceso se encuentra algün 
campo no numérico, el programa 
nos da la opción de ignorarlo o co- 
rregir el valor. Si el campo está au- 
sente, se le asigna un valor de cero 
para calcular el promedio. Sólo se 
pueden acumular los valores de un 
campo mediante este comando, 
por lo que, si queremos realizar 
operaciones más complicadas de- 
beremos introducir un programa 
Basic que haga la operación reque- 
rida. 


Incluyendo un programa 
Basic, MasterFile se 
convierte en un programa 
ala medida 


A pesar de la versatilidad del 
programa, existen casos en que re- 
sulta muy ütil realizar cálculos con 
datos de varios campos de un mis- 
mo registro, o insertar campos con 
un valor determinado en función 
del valor de otros. MasterFile per- 
mite ambas posibilidades, y lo 
hace mediante un esquema senci- 
llo y eficaz. Pulsando U en el 
menú principal se obtiene el ассе- 
so al programa del usuario, que 
debe seguir el siguiente esquema: 

En primer lugar, el programa le 
da control a la línea 4900, una sola 
vez, antes de procesar el fichero. 
Este es un lugar interesante para 
aquellas tareas, como inicializa- 
ción de variables, que sólo deben 
hacerse una vez. Como el resto de 
los bloques, debe acabarse esta 
parte con la instrucción GOTO 
USR R. 

A continuación se le da control 
a la linea 5000 una vez para cada 
registro, antes de procesar los cam- 
5; esto permite inicializar las v: 


La línea 6000 se ejecuta un vez por 
cada campo. Al entrar, la variable 
C$ contiene el campo, con la refe- 
rencia en C$(1) y los datos en C$(2 
to). 

La línea 7000 se ejecuta cuando 
se han procesado todos los campos 
del registro, y en ella se puede 
Crear un nuevo campo o no, según 
el valor que le demos а C$. Si 
C$=""", el registro queda como es- 
taba; si C$(1) es un referencia de 
campo, y c$(2 to) está vacío, en- 
tonces el programa borra el campo 
indicado; si C$(1) es una referencia 


La impresión se realiza 
siempre a través de la 
instrucción COP Y. 


de campo y c$(2 to) contiene da- 
tos, el campo indicado se crea o ac- 
tualiza. Como en los demás casos, 
el retorno al programa se realiza 
mediante GOTO USR R. 


puncoding 

Memory Lane 
RMF d 
258 44 


Motto: There is no such 
only a stubborn debugger 


Smithson Р 
መመጠን ን 1] 


Salary 
Total = 
Average = 
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- 
3 
thing 35 а stubborn bug, 
' 
Showing Micro-print 42751 and with 2 recs^page. 
ШЫ total/average by pressing T then 5. 


En la versión 9 y siguientes la li- 
nea 9000 se ejecuta después de 
procesar todo el fichero, lo que 
permite imprimir los resultados fi- 
nales o poner a cero algunas varia- 
bles. El orden de paso de los reg 
trosa través del programa de usua- 
rio es el de inserción. 


Adaptación a microdrive 
o impresora 


Para facilitar la adaptación a 
microdrive o diskette del progra- 
ma, todas las operaciones de entra- 
da/salida se realizan desde BASIC. 
Por tanto, el programa resulta fá- 
cilmente adaptable, ya que sus 
operaciones de entrada/salida se 
reducen a variables, código máqui- 
na o el propio programa. Por ello, 
el programa no saca provecho de 
las posibilidades de acceso aleato- 
rio que ofrecen estos dispositivos. 

La impresión se realiza siempre 
a través de la instrucción COPY. 
El programa funcionará correcta- 
mente sólo con /nrerfaces que rea- 
licen copias de pantalla. Además, 
el código máquina de impresora 
no debe residir en la misma zona 
de memoria que el programa, por 
lo que la compatibilidad resulta 
más difícil. Un consejo: prueba an- 
tes de comprar el programa que tu 
impresora podrá obtener resulta- 
dos con él. 


СМЕ DEJAS EL cUBITO 
Y LA PALA? 


РАКА HACER UN 
INTERFACE RS-32 
SERIE- PARALELO DE 
ARENA. 


Una buena 
Base de datos, 
algo difícil de manejar 


Sin ánimo de exagerar, se puede 
decir que MasterFile es una de las 
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mejores Bases de datos que existen 
para Spectrum. Por otra parte, su 
uso resulta complicado por la va- 
riedad de opciones y la estructura 
de menús, que hace difícil saber en 
qué opción del programa nos en- 
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contramos. Para quienes no tengan 
miedo de estudiar cuidadosamente 
las instrucciones y experimentar, 
MasteFile les ofrece la posibilidad 
de gestionar sus ficheros de datos 
de una manera muy flexible. 


Proteja su ordenador y manténgalo 
como nuevo con esta práctica 
funda de teclado transparente 


سے 


Servicio 
especial 

para nuestros 
lectores 

y amigos 


—— 


RECORTE Y ENVIE HOY MISMO ESTE CUPON А: 
PUBLINFORMATICA, C/BRAVO MURILLO, 377 5." А 28020 MADRID 


APROVECHE ESTA OPORTUNIDAD 
Y BENEFICIESE DE UN 30 96 


DE DESCUENTO SOBRE SU 
PRECIO NORMAL DE VENTA 


есо de 950 Plas сайа una. 


undas para mi SPECTRUM 


dinis 


کی 
y‏ © 


ТРаовоцомв cow 
todas das сом 


En teoría de probabilidades y en 
muchas otras aplicaciones es muy 
frecuente la utilización de factoria- 
les. Este sencillo cálculo, que se 
define como n! = n * (n-1) * ( n-2) 
*... #2 #1, tiene la característica de 
desbordar rápidamente la capaci- 
dad del ordenador. En efecto, el 
factorial de un nümero tan peque- 
ሽዐ como 30 da la desorbitante cifra 
de 2,65 * 101 32. El de 34 provoca 
ya un error del tipo «Number too 
big» si intentamos calcularlo sin 
recurrir a ninguna argucia. Esto no 


sólo ocurre en el Spectrum sino en 
cualquier otro ordenador. Por si a 
alquien le consuela, el famoso PC 
de IBM (con un procesador 8088 
de 16 bits) también falla al llegar a 
34, la ünica diferencia es que en 
este caso el informe es «Overflow». 
El Commodore 64 se queda igual- 
mente en 34, mientras que los 
MSX van algo más lejos: la pala- 
bra «Overflow» aparecer al llegar a 
49. El programa utilizado para esta 
sencilla prueba es: 


15 TO 


ме 100 


PRINT N 


LET 


[XN 


Con el QL de Sinclair tuvimos 


que «alargar» el bucle FOR- 
NEXT hasta 1000, pues batió to- 
das las marcas llegando sin proble- 
mas hasta el factorial de 301. 

Del mismo modo que un orde- 
nador sabe multiplicar porque tie- 
ne en su memoria ROM un pro- 
grama en código máquina que le 
indica cómo hacerlo, también po- 
demos enseñarle a calcular facto- 
riales de números considerable- 
mente elevados. Sólo se necesita el 
programa adecuado. Con el que 
presentamos en estas páginas, el 
máximo alcanzable no depende 
tanto del Spectrum como de nues- 
tra propia paciencia. Por ejemplo, 
invierte 3 minutos 15 segundos en 
calcular las 158 cifras de 100! y 
unos 70 minutos para las 615 de 
300!. El método empleado se basa 
en la aproximación de Stirling, 
matemático inglés del siglo ХУШ 
famoso por su fórmula para el 
cálculo de factoriales; | 

n! = n^ e» ሃ2 

El programa obtiene primero el 
nümero de ceros de n! mediante la 
subrutina que comienza en la línea 
340. A continuación, calcula el 
número de cifras utilizando el lo- 
garitmo de la aproximación de 
Stirling y, por ültimo, halla el re- 
sultado mediante una serie de bu- 
cles FOR-NEXT que almacenan 
los resultados parciales en la ma- 
triz b. El resultado final puede al- 
macenarse en la variable alfanu- 
mérica n$. 


1 REM FACTORIAL 

2 REM 

3 REM CON TODAS LAS CIFRAS 
4 REM 

5 REM SPECTRUM 16/48К 
6 REM 

7 REM БЕРТТЕМВКЕ 1984 
8 REM 

9 REM 

10 REM CONSTANTINO CORTINA 
11 REM 

12 REM 

20 INFUT "Factorial de 7 "jn 


30 IF п<о OR n-INT п<>0 THEN 
60 TO 20 

40 LET nfzn: GO SUB 350 

50 LET g=INT (1+nc/6) 

60 REM ፎ= Logaritmo de la 

aproximacion de Stirling 

70 LET c=INT (((n+.5)XLN п-п+. 
(2XPI))/LN 10) 

80 LET k=INT (1+c/6) 

90 DIM a(k): DIM (ዞን) 

100 LET а(1)#1: LET p=1 

110 FOR ізі TO k 

120 LET а(і) =а(і) жр: IF a(i)-O 
AND 129 THEN 60 TO 150 

“130 LET b(i)sINT (а(1) /10е5) 
140 МЕХТ 1 

150 FOR 1=2 TO k 

160 ШЕТ &(1)=а(1)+6 (1-1) 

170 NEXT i 

180 FOR 1#1 TO k 

190 LET a (i)-a(i)-1085XINT (ali 
)/10e5) 

200 NEXT i 

210 IF р< ъп THEN LET pzp*i: 60 
TO 110 

220 BEEF .1,0 

230 PRINT пу"! =" 

240 FOR i=k TO 1 STEP -1 


250 LET a$=STR$ a(i) 

260 IF i=k THEN 60 TO 300 
270 LET аФ-"ООООО"жаФ 

280 LET j=LEN a$ 

290 LET а%=а%(;-5 TO j) 
300 FRINT ልቆ 

310 NEXT i 


320 INPUT "Quieres guardarlo en 
n$ ? ";b$ 

330 IF b$(1)="s" 
oo 

555 PRINT š GO TO 20 

340 REM nc- Numero de ceros 

de በ! 

350 LET пс=0 

360 LET со=1МТ (п+/5) 

370 IF созо THEN RETURN 
380 LET ncenc*co 

190 LET nf-co 

400 GD ТО 340 

500 LET n$=STR$ п+"!=" 

510 FOR i ТО 1 STEP--1 
520 LET a$-STR$ a(i) 

550 IF i=k THEN GO TO 570 
540 LET а$="00000"+а$ 

550 LET з” ЕМ аф 

560 LET a$-a$(;-5 ТО j) 

570 LET n$-n$*a$ 

580 NEXT i 

590 PRINT *п$ 

600 RETURN 


THEN 60 SUB 5 


100!2933262154439441526816792388 
$6266700490715968264381521468592 
96389521759999322991560894146397 
61565182862336979208272237382511 
85210916864000000000000000000000 
000 


Nuestro amigo Gusánez está 
ya harto de merodear por la 
revista y ha decidido 
largarse a la playa con su 
amigo el «enano». Pero para 
ello necesita vuestra ayuda: 
tenéis que guiar sus pasos 
para que encuentre a su 
amigo y sortear los diversos 
peligros que encontrará en su 
camino. Sólo vosotros podéis 
conseguir que Gusánez se 
vaya de vacaciones y nos deje 
respirar un poco en la 
redacción. 


Causámez 40 ЛО, de досад 


Concretamos un poco más: para 
que Gus pueda salir airoso de su 
aventura debe recoger seis objetos: 

Microordenador Spectrum. 

Maleta con la inicial G. 

Unas gafas de 501 

Unas gafas de bucear. 

Un radio-cassette. 

Una revista 


TRUM 


TODOSPEC- 


Además nuestro querido amigo 
tiene que encontrar a su querido 
amigo. Las formas de encontrarlo 
son variadas. Nos explicamos. 

Forma 1: El enano se mueve 
constantemente por las distintas 
pantallas, pero el Gus no lo sabe 
Si logra encontrar su pista y seguir- 
la podrá hacerse con él 

Forma 2: Logra que el enano, 


cuando se presente de improviso. 
logre cruzar de arriba abajo la pan- 
talla a través de unos bloques que 
el Gus podrá mover a izquierda y 
derecha. 

La ünica forma de conseguir la 
posición del enano en el laberinto 
esconsultar el mapa. 

Pero igual que varias formas de 
encontrar al enano, hay una de 


Los caracteres que aparecen subrayados en el 
listado corresponden a caracteres gráficos del or- 
denador. 


10 BORDER 5: PAPER 7: INF 
RIGHT О: CLS : RANDOMIZE O 
2 ‚О: GO SUR 


LET 525 
DIM p$(7): LET 
LET а150: LET bi 


LET ob1 
LET g$-" 


70 CO SUB 
во GO SUB 
90 LET w=6 
UB 750 
100 GO SUB 480 
110 LET е%Ф-ІМКЕҮ% 
120 IF INKEY$:»"" THEN LET e$- 
ІМКЕҮФ 
150 IF e$-"z" THEN GO SUB 220: 
GO TO 120 
140 IF e$-"x" THEN 60 


60 SUB 1520 


: GO SUB 2690: GO S 


га гезетео 


CIONE ЕЕ 


ПИЗА 


P g L 


perderlo: Los grandes almacenes + BU 
Aquí si no logra el Gus encontrar 
el objeto escondido se quedará sin ጋ 
su amigo 

Una vez tengas los seis objetos y 
el enano, y superados los puntos 
propuestos, deberá tar la cla- 
ve secreta. Esta, a través del juego. 
se ha ido visualizando en la parte = 
superior de la pantalla letra a letra n Se — = 


Hoqamas @ | : 


pero sin ningún orden e incluso re- 
petidas. Para acertar la palabra co- 
rrecta deberás, en un tiempo deter- 
minado, pulsar letra a letra hasta 
completarla. Si te equivocas pulsa 
DELETE y empieza de nuevo 


со TO 120 
150 IF ES 


p" THEN GO SUB 400: 


THEN GO SURB 440: 


201) AND ch- 


.01,p+40: 
GO SUB 1410 
180 IF g$-" се" AND (ATTR (a,b+ 
)4»88 OR ATTR (а,в+2) 258 ОК ATT 
8 (8-1,5) >58 OR ATTR (а-1,6+1) 25 
8) THEN 60 SUR 500 
190 IF 9ቆ="መፎ " AND (ATTR 
4258 OR ATTR (a,b+1)<>S8 OR ATTR 
(а-1,6+1)<258 OR ATTR (a-1,b*2) 
58) THEN GO SUB 500 
200 LET eni-RNDX 
THEN 60 SUB 
210 IF g$- 


(a,b) 


፲፻ еп1290 


AND a=al AND b+ 
со SUB 2210 

220 IF g$=" GF" AND аха! AND b= 
bi THEN 60 SUR 2210 

230 60 TO 110 

240 IF ፎከ=1 THEN RETURN 

250 LET nu=INT (3+RNDXx7) 


"g^. ዘበ "E а IPAE ረ 
NEST ከ 


270 PRINT FLASH 1;АТ 21,121 "СО 

БЕ LA ULTIMA": FOR 1 TO nu: BE 
EF .01,45+п: LET сізІМТ (4+RNDx1 
4): LET 91=1МТ (2+RND*26): FÜR m 
=7 TO 2*RNDk4 STEP -1: PRINT IN 
VERSE 1; FAFER 1: INK мат с1,91 
La NEXT m: NEXT n 


280 LET aisci: LET bi=d1: 60 SU 
B 650 

290 IF d»-to THEN СО SUB 570 

300 RETURN 


Gusánez comienza a 
perder puntos en cuanto 
se le sitúa sobre una 
superficie oscura. 


aunque el tiempo sigue su Curso. 

Si acierta la clave el Gus se con- 
vierte en coche y empezará a gas- 
tar los puntos acumulados hasta el 
momento. En el indicador de posi- 
ción se verá un punto parpadeante 


310 REM Movimiento gusanez 

320 IF ATTR (a,b)=120 THEN 50 

SUB 530 

330 IF ATTR (а,Ь) >=66 OR АТТА ( 
66 THEN 60 TO 170 


LET р=р-1: LET b=x1: 

GO SUB 480 

350 GO SUB 480: LET g$ ы 
ЕТ h$z" IH ": LET b=b-1: 60 SUB 4 


BO: RETURN 

360 IF ATTR (a,b*2)-120 THEN б 

0 SUE 550 

370 IF b>=26 THEN BEEF .01, 

LET р=р+1: LET b-x2: GO SUR 750 

s GO SUE 480 

380 IF ATTR (a,b*2)»-66 OR ATTR 

1,b*3)5-266 THEN 60 TO cm 

390 GO SUB 480: LET g$=" AE ": L 
: LET b=b+1: CUN 505 + 


400 


(а-2,Ь) > 
6 OR аттк 
TO 170 
' 410 IF ክቕ(1)=" " THEN ТЕ ATTR 
(а-1,6) 2=66 OR ATTR (a-2,b*1) 5-6 


ሬ ОК ATTR (а-2,Ь-2) >з66 THEN 60 


=2 THEN BEEF 
LET © 


SUB 480: LET а=а-1: 60 8 
UB 480: RETURN 


440 IF ከቁ(1) " THEN IF ATTR 
(а+1,0) >=66 ОК ATTR (a+1,b+1)>=6 
6 ОК ATTR (а,Ь+2) 266 THEN БО Т 
О 170 

450 IF ከቆ(1)=" т" THEN IF ATTR 


(а,Ь) > 
OR ATTR 


6&6 OR ATTR (a*1,b41)2-66 
(a+t1,b+2)5=66 THEN GO T 


al cual te deberás dirigir. 

Si no aciertas dicha clave el or- 
denador elegirá otra nueva y modi- 
ficará los puntos a los que tendrás 
que llegar de nuevo. 

Con estas instrucciones podrás 


Para coger objetos 
basta situarlos bajo la 
narizota de Gusánez y 


detener su movimiento. 


0 180 

460 IF a*:219 THEN ВЕЕР .01,20: 30: 

LET oso*i: LET as» G0 SUB 750 0; 

60 SUE 480 BRIGHT 

470 GO SUB 480: LET а=а+і: GO 5 550 IF b+ 
UB 480: RETURN 560 FOR 
480 IF ch=1 THEN (ЕТ 91=50: 60 а, пр" 


RINT АТ a,ni" RRRER ": 
: NEXT ni 

PAPER 7;AT a.n*i1; "BEREBERE"; 
OJAT ап" "; RETURN 


llegar a la playa, aunque hay mu- 
chas más cosas que tendrás que 
descubrir junto a tu amigo Gusá- 
nez. Felices vacaciones. 


José Carlos Tomás 48K 


ВЕЕР -001, 


РКІМТ BRIGHT 1; I 


9 THEN RETURN 
+2 TO b+4: FRINT АТ 
ВЕЕР .001,п : МЕ 


SUB 1950 XT n: FRINT BRIGHT 1; INE. FA 
490 PRINT КАРЕК 8; FLASH 8; ER FER 7;AT а, п; "REF š BRIGHT ОА 
IGHT 8; INK 8; OVER 1;АТ a,b:9$; T а,п RETURN 

BEEF „0001, 60: RETU $70 КЕМ Puertas 


AT a-1,b3h8: 


š : ВЕЕР 
К በ=0 TO 5: BORDER n: NEXT n 2 
510312 d<=Q THEN FOR n=1 ТО 


-4:=1 THEN 


540 FOR п=Ь-5 ТО b-6 STEP -1: Р 


PARECE MENTIRA... 
ESTAMOS ЕМ 4485, 


TENGO UN MICKO- -ORDENADOR | 
INTERFACES... 


IMPRESORA... 
SÉ PROGRAMAR EN BASIC... 


FRINT AT 21,7;9 
: ¿01 bx FÜ 


5 
PRINT OVER 1) ВТ 53 


RETURN 


586 IF ch-1 THEN 


сее 


ВЕЕЕ 


RETURN 


590 LET pul=INT (2*RNDX16): FOR 
n=pui TO pul+1: 
NEXT n: 


РКІМТ. AT п,“ 
.Оі,рші 

-ңІМТ (2*RNDX16): FOR 
FRINT AT n, 


co ВЕЕР . 01, ри? 
INT (2*RNDX16): FRI 
"5 ВЕЕР .O1,pu 
620 LET puésINT (З+КМОЖ16): FRI 
МТ АТ 19,pu4;" "s ВЕЕР .01,pu4 


ME ENCANTA EL FUTURO 
TECNOLÓGICO QUE SE APRON 
. CADA VEZ MÁS. 


Soy UN GUSANO DE mi 


МА... 


EPOCA - 
Y SIN EMBARGO... 


TODAVÍA DEPENDO 
DE TÍ, PATITO MÍO. 


430: RETURN 
RETURN 800 IF а(р,о)-і THEN GQ SUE 
650 IF ch=1 THEN RETURN 50: 50 SUB 1070: GO SUB 990: RET 
660 LET pa=INT (RNDXx7? FOR п=1 URN 


TO 19: FRINT АТ n,©; BRIGHT 1; 810 PRINT INVERSE 1 
NEXT n -----» "to" puntos 
BRIGHT 1; PAP О IF а(р,о) =8 THEN GO SUB 16 


G0 SUB 6 50 SUB, 570 
ЕТТЕН еге c 
HT 13,1; r 30 IF (а(р,о)#-1 ОК а(р,о)= 


¡AT 20,0; 


2) 


480 RETURN AND chz8 THEN LET in=RND#7: LET 
ooi REDUCIT ር 552807. FOR Пед ID 19:, PRINT. 


PER 
REnRARARRRHRARARRRERRRR 


700 60 SUB 9 


Ол LET gi 


N n 


=1 TO 19: PRINT АТ n,O; INK : 59 SUB 660: GO SUB 578: GD SUB 
APER 5; BRIGHT 1;"R"iAT n,2 : 1990: RETURN 
NEXT n 840 IF а(р,о) =-5 THEN 50 SUB 6 
738 PRINT 504 60 SUB 5 RETURN 
5; BRIGHT 850 IF а(р,о)2-9 THEN LET 4#+С 


HRS (65+пт): 60 SUB 240 
860 IF a(p,o)7-3 THEN 80 SUBE ё 
90: GO SUB ፳7፡ 
870 IF aíp.o 


720 PRINT FLASH 1;АТ 21,1 

БЕ LA ULTIMA": FOR m=1 TO р 
a1=INT (Z4RNDX15): LET 51=1ከፐ ( Oi во SUB 1340: 
2+ዩ419825) ፥ FOR п=5 TO 7: ВЕЕР .0 N 

PRINT OVER 1; INK прат 880 IF а(р,о)<8 AND а(р,о) THEN 

МЕХ ВЕЕТ © 50 SUB 950: GO SUB 570: GO SUB 


) THEN GD SUR 65 
G0 SUB 570: RETU 


S 1070 
740 eum talla laberint POVRE TORN 
O RI "'antalla laberinto 200 ЗЕ п=1 TO 21: FRIN ‚© 
750 LET рх=0: LET : LET die 0 FOR ne! ТО 21: PRINT AT п,0 
о: GO SUB бо ос 


760 IF a(p,c)-20 THEN 80 TO 24 Уеа ከ БЕН сі TÜ 
26 ES А ን $ 

2p PRINT AT n,29; BRIGHT 1; INK 
770 IF р=рі AND о-оі THEN LET ү: 


МЕ 
60 SUB 2740: GO SUB 990: К E ДЕН o=b3 THEN LET 


п-1 


780 GO SUE 1040 


790 IF а(р,о) <40 THEN 50 SUB 3 #1103 INE ን 


1; BRIGHT 1; "FUNTOS: "5 FOR n= 
14 TO 16: PRINT AT n,29$:" "cM 
EXT n 
940 FLOT xus 


THEN  FRINT AT 17,3 
BRIGHT 1;" P" 
THEN PLOT FLASH 1 
>: 60 SUR 990 


ጅ 9453. THEN СЕТ coscrado P 
RIGHT 1AT 1,0; "2209000000 
ኢ Cort 


s 


iAPROVECHA AL MAXIMO TU SPECTRUM! 


Ahora, a tu alcance, dos obras fundamentales para que podáis sacar todo el partido posible a vuestro ordenador. 


Derek Ellershaw y Peter Schofield! 


Esta publicación está diseñada para guiar al nuevo 
usuario del ZX Spectrum desde el momento que el 
ordenador se conecta hasta conseguir una base sufi- 
ciente de la programación BASIC 

Incluye temas como 

* Introducción al teclado 

* Instrumentos ütiles para la programación 


Este libro, escrito en estilo ameno y práctico, está 
dirigido a todos aquellos usuarios que han dejado 
atrás la etapa de los juegos y necesitan adentrarse 
en el fabuloso mundo de la programación 

El temario incluye 

* Reglas y herramientas del BASIC. 

* La técnica de los organigramas 

mo planificar un programa 

El mundo de las rutinas 

Variables y cadenas 

Funciones matemáticas usuales 


109 pags. - 750 PTAS. 


CUPON DE PEDIDO 
Recorta este cupón debidamente cumplimentado y envielo a INFODIS, S. A. C/ BRAVO MURILLO, 377-5.2 A - 28020 MADRID 


А 


Si, envienme el(los) libros) que a continuación detallo al precio de 750 ptas. libro, más 100 ptas. en concepto de 


* Uso de comandos faciles 
* Como construir un programa 
* Técnicas de programación 
* Aplicaciones prácticas 
100 pags. - 750 PTAS. 
І El importe lo аБопаге: POR CHEQUE O CONTRAREEMBOLSO 
| (AMERICAN EXPRESS 
| Namero de mi tarjeta 
I TITULO = 
| A E 
| NOMBRE = ғ 
| CALLE 
| 
1 
1 
V 


D) (INTERBANK D) 


D CON TARJETA DE CREDITO (МВА 0) 


IF p< THEN LET ፎዮ=ፎዮ+15 
FOR nei TO 19: PRINT + BRIGHT 146 
T n,0; NEXT n 
1010 IF 6»=20. THEN LET crecr*i: 
PRINT BRIGHT 1 ቋፐ 20,0; "00000000 
ወ9ወ9996999599980ዕ95929596" 

20 dead LET cr=cr+1: 
BRIGHT 1; 


T OVER 1; INK в}. PAPER 8; 2: 
_DRAW OVER 1; ТМК 8; FAFER 
: BEEF .01,60: NEXT n: LET 
IF и<64 THEN 060 SUB 2900 


PRINT OVER АТ 
yg a pilis rim pille Pp MEAN 
ETURN 
1070 REM Objeto 
1080 IF a(p,o)=1 THEN LET o$-"T 
"+ LET а1=16: LET ከኒ=፲ክፐ (11+RND 
3): PRINT FAFER 4; INK 2;AT al 
ат": RETURN 
IF ch=1 THEN RETURN 
IF а(р,о) =0 THEN GO SUE 13 
: RETURN 
1110 GO SUB 3380 
IF а(р,о) #2 THEN LET o$= 
PRINT. INK 1) АТ а1,61;0$ 
IF а(р,о) #3 THEN LET оФ=" м 
's PRINT INF АТ а1,61;0$ 
1140 IF а(р,о)ч4 THEN LET оф=° м 
"; PRINT AT а1,61;0% 
) IF а(р,о) #5 THEN LET 6=" 
RINT ІМК 4: АТ а1,51508 
) IF а(р,о) <6 THEN LET o$- 
": PRINT ІМК В: АТ а1,61;0$ 
1170 IF a(p,o)-7 THEN LET o$="u 
“s PRINT INK 136 ai,Bi:ot ~~ 
p AND bi-o THEN LET 
PRINT AT a-1,b;" " 
ВЕЕР 05, КЕТОКМ 
ТЕ е THEN LET br=0 
IF en-0 THEN LET br=1 
IF pei THEN 60 TO 1240 
IF а(р-і,с)--5 THEN LET cr 
=cr+1: РОК n-pui ТО рці+1: PRINT 
BRIGHT br; INK 1:AT n.O;"E": N 
EXT n: ВЕЕР .01,pul 
| 1240 IF p=20 THEN GD TO 1260 
D IF а(р+1,0)=-5 THEN LET cr 


Hoqramas © 


=cr+1: FOR nepu2 TO ри2+1: FRINT 
BRIGHT br; INK 1;АТ በ,281"ፎ"ኒ 
NEXT n: ВЕЕР .01,puz 
1260 IF osi THEN GO TO 1290 
1270 IF а(р,о-1) :-5 THEN LET cr 
=cr+1: FRINT BRIGHT br; INK 116 
T 1,pu3;"PPP': BEEF .ዕ1,ፀህ5 
1280 IF o=20 THEN RETURN 
1290 IF а(р,0+1)=-5 THEN LET cr 
=ርሦ+15 PRINT BRIGHT br; INK 1;А 
т. 19, pu4ĝ; "Pee": ВЕЕР .01,ри4 
ር 4 AND br=1 AND ch=0 
THEN со SUB 480: FRINT AT 11,10 
ATRAFADO!": ВЕЕР 5,- 


RETURN 
DRAW BRIGHT 1; 
08,0, -2.4+ (КМО 


RETURN 

1240 LET ds-INT (RND* 
ds THEN 60 TO 1380 
1250 LET dx-INT (B-RND*210): FLO 
T dx,24: DRAW INE 7; BRIGHT 110 


IF NOT 


.05,50: LET dy=INT (24 
PLOT B,dy: DRAW INK 
BRIGHT 1210,0 

-05, 55: RETURN 
LET dz=INT 


X24): FRINT BRIGHT 13 IN 
z ЗАТ X "я 
E п=4 


(4+FRNDxX17) 
BRIGHT 13 INK 0; PAP 
ER 7; АТ п, ду" RERRE"s BRIGHT о; А 
T n,dy*2;" "; ВЕЕР. : NEXT 

n 

1400 RETURN 

1410 IF px-1 THEN LET px 
TO 1440 

1420 IF а(р,о 
59 SUE 1950 
a(p,o)=INT (RNDX 
1430 IF а(р,о) 
15: 50 SUB 505 
1440 PRINT АТ 2,dz: OVER 1; 
FOR ко 17 

1450 PRINT AT n,dz; BRIGHT pott 
: ВЕЕР .1,n: PRINT BRIGHT 1; OV 
ER 1;AT n,dz;"FE" 
1460 IF ATTR (n*1, 


NT 


60 


THEN LET di=1 
LET 1115: LET 


RETURN 


20 THEN 


60 SUB 1510: RETURN 
1470 NEXT n 
1480 FOR n-i TO 60 STEF FRINT 
OVER 1; ат 19,d23'P"s BEEF 01, 
22: NEXT n 
1490 IF en-1 THEN LET 91=5000: 
60 SUB 19 LET ti=15: 
1500 LET t 5: LET ens 
1: GO SUB 920: 
1510 FOR m=dz TO 27: 
АТ n*i,m; 
INT OVER 
1520 LET d 
20: LET ti=15: 
TURN 3 
1930 REM Matriz laberinto 
1540 FÜR т=1 TO 20: FOR п=1 TO 2 
6 
1550 LET a(m,n)-INT 


FRINT OVER 
"юр": ВЕЕР .001,т: FR 
: NEXT m 

GO SUB 19 
LET a(p,o)=-1: RE 


CTX-RNDX2Z) 


1560 BORDER 1: BORDER BORDER 
4: BORDER 6 
1970 NEXT n: NEXT m 


1580 FOR m=1 TO 10+RNDx 
(INT 


LET a 
INT (1+RNDKX20))= 
BORDER 1: BORDE 
BORDER 4: BORDER 

NEXT n: BORDER 5 

1590 LET a3-INT (1+RNDA20): LET 

JJ: LET ata3,b3)= 
22 THEN (ба TO. 1 


1600 LET p=INT (1-RNDX20): LET o 
TINT (1*RNDX20): LET pi-p: LET o 
: LET а(р1,01) IF а(р,о) 2 
THEN GO ТО. 1600 

1610 FRINT +1; FLASH 1; "Роза un 
а tecla": FAUSE O: CLS : RETURN 

1620 REM Fantalla laberinto 

11ኛ ch=1 THEN RETURN 

1640 LET bb-RNDX7: LET cczRNDX*7: 
PRINT ІМК 4;AT 11,15" QUIERES 

VER EL МАРА? S/N "; FLASH 13AT 1 
3,11;"500 Puntos" 

1650 IF INKEY$-"s" THEN BORDER 

5: ВЕЕР .1,50: LET 91=500: 60 SU 
B 1950: GO TO 1680 

1660 IF INKEY$-"n" THEN BORDER 

5: BEEF -40: 60 SUB 900: RETU 


1670 BORDER bb: BORDER cc: FALSE 
1: 60 TO 1650 
1680 GQ SUB 200 


1690 80 SUE 1870 
1700 FOR т=рх TO py: FOR n TO 
оу 


1710 FRINT АТ п,т+ 


INK 6; BRIG 


IF а(т,п) =1 THEN РКІМТ ІМ 
BRIGHT 1; АТ n,m Me 

IF А THEN PRINT В 
RIBHT IAT п,т+3;"Ж" 
1740 IF 5(ጠ, በ) =-5 THEN 


FRINT I 


МЕ FLASH 1; BRIGHT 1; АТ n,m*Z 
5 IF а(т,п) >1 AND a(m,n) TH 

EN РАТМТ BRIGHT 1;АТ n,m+3; "o" 

1760 IF aí(m,n)-8 THEN PRINT BR 

IGHT 13 INK 4;АТ п,т+ 3; "Xx" 

1770 IF a(m,n)-4O THEN РКІМТ АТ 


п,т%2; 
1780 МЕХТ п: МЕХТ т 

1790 PRINT BRIGHT 1; FLASH 1; АТ 
Oper "G" 

1800 IF en=0 THEN 
1; FLASH 1; ат 
1810 FOR п=1 ТО 
EXT n 


FRINT 


BRIGHT 


1820 LET ቲቆ=" II 

Muchos puntos /осао Dbjeto/ 
/RRREF а del enano/ / 

XXXX Ver mapa/ /TTTT Refresc 


af 


Grandes almacenes/ 
¿/PULSA UNA TECLA// d 
O FOR n-1 TO LEN t$-16 

O IF INKEYS< ` THEN 60 TO 1 


860 
1850 FAUSE 5: 
К RNDX7; BRIGHT 1¡AT 21,1 


FRINT INK 


TO n+16): 
1860 60 SUB 900: 
URN 

1870 LET рх=р-4: 
LET рх=1 

1880 LET Прие р+4: 
СЕТ ру 
1890 LET ох=0-4: 
LET ox= 

1900 LET oy=0+4: 
LET ,ወሃ=20 

TURN 

LET 9=9+91: PRINT АТ 21,7:d 
ВЕЕР .01,т 
2-to THEN 
ВЕЕР .01,п: 


NEXT n: GO TO 1 


50 SUB 880 


IF ру>=20 THEN 


:=1 THEN 


20 THEN 


FOR п=1 TO 6 
PRINT ዐሃ 


49 


Недгамав 


ER 1;АТ 21, 0; "PUNTOS: "5 
1940 URN 

1990 LET ded-di: 
1950 IF d 
1970 ВЕЕР. 


NEXT n 


РКІМТ AT 2 


O THEN 60 TO 
1,57: RETURN 

1980 LET ca=INT (1+RNDKXLEN r$): 
FOR nez TO O STEP -1: ВЕЕР 01,3 
: FRINT FLASH 1;; РАРЕК n 

¿AT а1,Б1;г3 (са): NEXT п 

1990 LET и зи +г + (са): FRINT ІМ 
К 74 РАРЕК 1 АТ 0,Орюв: IF LEN w 
2 THEN РКІМТ АТ 0,04%: LET 


ни 


w$= 
2000 РОБ n=2 TO 18: FRINT АТ п,1 


За 
NEXT n: GO SUB 480 


2010 LET di=125: GO SUB 1920: 60 
SUB 570 


о THEN 


6 


BEEF 1, 


J THEN PRINT FLASH 
y el enano...?": BEE 


2050 THEN РЕТМТ FLASH 


1;AT y los ó objetos?": В 
EEF 1, 

О OR го: 7 THEN РБІМТ 

": RE 


2070 PRINT AT 1,3 
S CLAVES?" 


DESEAS VER LA 


IF ІМЕЕҮФ="=" THEM 5 зе 
60 TO 2110 
IF INKE М TREN BEEF 2; 


: 50 TO 
2100 GO TO 2080 


@ 


МТ (14RNDX2O) LET 
(1+АМОЖЗО) ; C ; 


2110 LET а; 
Һ2-ІМТ 


NT FLASH 1;АТ 0,0; 
DELETREA LA CLAVE 
LETE PARA BORRAR TODO ia 

2150 LET г%-""% PRINT NT 19 
ТЕМРО: "s FOR п+1 TO 30: 
ЕХТ п: РОК п Qh TO: 4 ЕТЕР” = 
ЕЕР .0001,60: FRINT АТ 19,11;n;" 


2140 IF INKEY$-CHR$ 12 OR INKEYS 
=СНАФ 12 THEN FRINT ДИ 20 
БЕТ ES 


FOKE 
2150 IF INKEY$Z2"" THEN LET z$- 
z$-INKEYS$: ВЕЕР 1,30 

2160 FRINT АТ 20,12; BRIGHT 

Я IF z$-r$ THEN FOKE 
2190 

ВЕ 


2r 60 ፐዐ 20 
2190 IF 2ቁመሙቆ THEN РКІМТ AT 21, 
i FLASH 1; BRIGHT 1; INK 
CORRECTO жж": GO SUE 29 
T ат 21, 124" 


ДЕ ፳ቹ፤2”ኛቹ THEN 
LET пт=0: LET 91= 

950: FRINT AT 21,13 [dd 

: NEXT n: LET w$- 

FLASH щат 21,124 "NUE 


LET tosto*d 
со SUB 1 


"; GO SUB 37 50 8 
PRINT АТ 21,10; 
": бо SUB 750: 60 SU 


480: RETURN 

10 REM Coge objeto 

2 AND а(р,о)<40 

LET GO SUB 1980: PRI 

AT а1,Ь1;" ": LET ል1=ር EET Ë 

LET a(p,O)=INT (1*RNDX6): I 

{реч THEN РОК п=1 TO 1 
1,40: FRINT OVER 1; ВТ 2 

NEXT n: RETURN 

IF vbzi THEN LET vb=0: RET 


IF а(р,о) 


2: IF а(р.о)-40 AND t=1 THEN 
LET en=1 


5 
1 peu 
ma Û 


ши т 


MA: 
150.000 PTAS. 
EN PREMIOS. 
BASES EN EL 
INTERIOR 


BE 


АА quiim 


' 


AL ПЕ 


T 
iU 


г 
" 
п 


PRIMERA REVISTA EN C 


in 


mm 


ad А 


ensa 


; 


555555 m 


E 


E ' 


RU 


-MAYO 85 


py اال‎ | 


Hogamas 


IF а(р,о)=1 THEN , 50 SUB 23 
RETURN 

IF psa3 AND 6= 
1: LET LET 
08 60 TO 2360 
2270 PRINT АТ 81,51 
1,40+р: ВЕЕР „01,40+0 
50: FRINT AT ai,bi;" " 
2280 IF а(р,о)21 AND а(р,о)<240 
THEN FOR п=а1+1 TO 18: PRINT В 
RIGHT 1; INK 4; РАРЕК 1;АТ n,bi- 


T n,b 
340 
2279 IF ар 


; "г NEXT n: GO SUB 1 


0) 240 THEN 60 SUB 9 


: IF оФ=р% (п). О 
"ıı" THEN GO TO 
NEXT n 

LET p$(ro)zo$: LET ro=ro+1: 
БАТАТ АТ co,30;0$: LET co=co+2 

' THEN LET аі=0: L 
=0: LET di-tixSoo: GO SUB 1 
40: RETURN 


LET ከ1=ዕ 
GO SUB 1920 
и TO w+40 


168 THEN ВЕЕР .1,45: 


со то 2410 
2400 BEEF . 


FLOT INK а; 
INK 8፤ РАР 
ШЕТ w=w+1: NEXT n: BEE 


2410 LET изи-1; PRINT FAFER 
T ai,bi;" "s: LET а1#0: LET b 
RETURN 

2420 REM FLAYA 


pos qe 
84,144, 126,57, 
Sé, 120,57,17, 126, 184,168, 
108, 0,96, ይ 16, 16,224, 0,0 


EEE .001,п+20: PRINT А 


2450 RESTORE 243 FOR п=-29 TO 
58: BORDER BORDER 4: BORDER 2 
: READ j: POKE USR "а"+п+29, j: B 
EEP .001,п: ВЕЕР .01,п-2: ВЕЕР 
01 п: NEXT n 
2460 FOR n-o TO 
RDER 4: BORDER 1 POKE U 
SR "o"4n,j: BEEF .01,пі ВЕЕР 
,n-2: BEÉP .01,60-n: BEEF 
-n: NEXT n 

2470 BORDER 5: РАРЕК 6: INK 1: Е 
RIGHT 1: CLS 

2480 FOR n-O TO 15: 
г PAPER 54" 

“: NEXT ከ 

2490 РОТ ІМК 7;100,48: FOR п=1 
TO 11: DRAW INK 7;14,—2*RND*13S 
‚-2.5: NEXT n 

2500 FOR n=O TO 47: PLOT ІМК 1% 
80,47: DRAW INK 1;175,-п: NEXT 


FRINT AT n,O 


n 
2510 FOR п=11 TO 12: PRINT AT n, 
4; PAPER 4; INK 25" ШЕШЕЙ": NEXT 
п: PRINT AT 10,5; INK 2; PAFER 4 
;" aaa 
252 к n=12 TO 19: 
1; INK 2; BRIGHT 

; BRIGHT 1; "08 
2530 FOR п=77 TO 100 
2%77-п,п: DRAW INF 

n 

2540 РОК п=100 TO 77 STEP -1: PL 
OT INK 2;147-п,-п: DRAW INE 2; 
14,0: NEXT n 

2550 FOR = TO 19: FRINT INK 
ፖ፤፪ፅፐ n,S; "MIN '፡ NEXT п 

2560 PRINT AT 18,26; INK 1; РАРЕ 
К 5; "ЕЕЕ АТ "E" AT 18,30; 
"E";AT 17, O 

2570 FOR TO 5: PLOT RNDX*245, 
120+RNDXSO:, DRAW 5,-5, -2+КМОж2: 
DRAW 5,5,-2+км0ж2: NEXT n 


NEXT 


2580 PRINT AT 19,1 CË" aT 20, 
109 T ава U ex AUSE 100 
2590 LET esi-O: LET es=0 


2600 RESTORE 2680: FOR 
O STEF -1: PRINT АТ 20 
OVER i; INK А 
READ j: PRINT AT 19,16 
PRINT АТ 20,214" BEEF 
7500, j*es: PRINT AT 20,1 x 
: PRINT AT 20,214" ": PRINT AT 1 
9, 16; "ЕН READ j: ВЕЕР „05, j+e 


x 
| 


@ 


в: PRINT АТ 19,16; "НЕ PRINT ል 
T 20,20;"P"; PAPER 5; INK B; OVE 
R пат 15,319" 

2610 PRINT AT 20,14 s FRINT А 
T 20,151"፳"፥ 

2620 IF INKEY$="s" THEN КОМ 

2630 IF INKEY$e"n" THEN GO SUB 


3780: 


60 TO 3560 


2640 PRINT AT 20,20," Р": ВЕЕР .0 
01,60 

2650 NEXT n: 
515=2 THEN LET ወፍ=ሬ 
2660 IF esi=5 
PRINT PAPER 1; INK 6; FLASH 14+ 
1;"OTRA PARTIDA? (S/N)" 
2670 60 TO 2600 


2680 DATA 0,5,0,7,0,8,0, 
0,10,0,8,0,7,0,5, 17, 19, 


LET esi=esi+1: IF е 


THEN LET 


es=-12: 


10,0,12, 
),19,18, 


17,17,19,20,19,17,15, 15, 17,19, 17 
5,19,13,13,15,17,15,13,12, 12, 12 


2690 FOR п=1 TO 13: 


9; BRIGHT 1; 


СІМК 4 
2700 LET to=INT (1 


FRI 


)ር)+ 


NT AT n,2 


NE": NEXT п 


RNDx*20000 


): PRINT BRIGHT 1;АТ 20,03"A "; 
to;" puntos" 
2710 FOR nz17 TO 21: FR 
29; BRIGHT 1; 
XT n 

2720 FOR п=64 TO 167: Р! 
2,n: DRAW 

APER 8;2,0: LET w=w+1: 

ЕЕР .01,40 
2730 PAUSE 200: 


cere በ=38 TO 29; P 


8; 


PAPER 8;23: 


BRIGHT 1; 


INT AT n, 


INK п-16;" MEM": МЕ 


INK 


RETURN 


NE 


PRIN 


27 па 
¡AT 0,1; "EEEE" 


2770 


176,0: NEXT n 


2780 PRINT AT 13 
„РЕК 1; 


РОК n=83 TO 119: 


2;5+n-88,n: DRAW 


ӨЗГРІ 
NEXT n 


LOT INK 
INK 8, P 
NEXT n: B 


RINT RT የነ 
XT n 


8752 FOR 532 TO 18; PRINT BT n 
Е Нет ለ! ዮት ው ኖክቦ 


RINT INK 2 


PLOT ІМК 


INK 2;150-2Xn4 


ШАТ 15,6: "Ka 


2800 FOR n=6 TO 9: FRIN 


INVERSE 1; 


INK 


Зуи" 


PAPER 1; 
ШАТ 15. 


„6; BRIGHT 1; РА 
INK 4; "еар"; AT 14,6; "И 


I 


T AT n,14 


¡AT п, 15; 


BRIGHT 15" ЕЕ": NEXT n 

2810 PRINT BRIGHT 1; FAFER Š; 1 
NK 4AT 12, p="; FOR በ=14 T 
O 18: FRINT AT n,12; РАРЕК 5; BR 
IGHT i; INK 4;"N Ш": NEXT n 
2820 FÜR пя 15 ТО 18: FRINT АТ n, 
19; INVERSE 1; INK 2; BRIGHT 1;" 
ЕЕЕ": NEXT n 

2830 РОК n=O TO 30: PLOT ІМК 2; 
152,78: DRAW ІМК 25п,-22: NEXT 
n 


2840 PRINT АТ 16,19; PAPER 13 IN 
К 4; BRIGHT 1; "тӘ АТ 17,19; " m" 
2850 FRINT AT 2,2; "GUSANEZ HOUSE 
"s PLOT 85,120: DRAW 0,20: PLOT 


85,135: DRAW 5,5: FLOT 85,135: 5 
RAW -5,5 

2860 PRINT AT S, PLOT 37,1 
20: DRAW 0,15: FLOT 121: DRAW 


" 
-5,0: DRAW 17,0: DRAW -5,2: DRA 
W O,-4: DRAW 5,2 

2870 1 THEN RETURN 

2880 FOR TO 47 STEP В: FOR m 
=0 TO 25 STEP 2: РОТ ІМК 13110 
*n*RND*20,128*-RNDXn: NEXT m: МЕХ 
Та 

2890 PRINT AT 0,03" 


60 SUE 880 
፣ RETURN 
2900 REM  Gusanez menos 
2910 РОК ጠ=1 TO 10: 
234: 212 «001, So: 
з INK 8; 
R 1; INK 8; 
n: NEXT m 
2920 60 TO 3550 
2930 REM Coche 
2940 PRINT АТ 0,0 


PAPER 


2950 LET 
=5: LET x 
2960 GO SUB 480: RESTORE 2990: Е 
ОК n=O TO 31: READ j: POKE USR " 
а"+п, j: NEXT n 

2970 FOR n=0 TO 21: READ j: РОКЕ 
“Шек "£"4n,j: NEXT n 

2980 FOR n=0 TO 7: READ j: РОКЕ 
ОВК "p"+n, j: NEXT n: GO SUE 480 
2990 DATA 63, 127, 255, 129, 152, 164 
1022) 24, 241, 254, 254, 130, 50, 74, 20 
4, 48) 252, 59, 255, 112, 112, 52, 212 
9,192,252, 194, 193, 1, 1, 2,252 


255,14,14,44,4 
128, 128, 64, 


;"САМВТО DE SIT 
FOR п=1 ТО 1%; GO SUE 480: 
ЕК RNDX*7: ВЕЕР 


LET d 
m: РОВ n 
FLOT 90+п,20+ 


3 STEP 8: 


T 
SZ 


n: DRAW FAPER m; 
Xn),O: DRAW КАРЕК m; BRIGHT 130 
+127- (24n); DRAW FAFER m; BRIGH 
T 12--55+ (23በ) „0: DRAW FAFER пъ 
BRIGHT 1:0,-127+ (2жп) 

3070 NEXT n: INE m*2: FOR п=68 Т 
1 STEP 8: PLOT 90+п, 20+п: DR 
AW FAFER п+2;55-(2жп),о: DRAW 
PAFER ጠበ+2፤ 0, 427- п): DRAW РАР 
-554 (24n), 0: DRAW ` FAFER 
m*2;0,-127*(2Xn) 

МЕХТ n: NEXT m: INK 2 

LET p=INT (1-RNDX20) 

LET o-INT (1+RNDAZO) 

LET 41-100: GO SUB 1950: 60 
750: GO SUE 480: RETURN 

REM Movimiento enano 

IF еп=1 THEN RETURN 


BRIGHT 1455- (2 


INT (RNDXS): LET міс 
INT LET q-INT (RNDX2) 
3150 THEN LET 5+15 
LET b3=b3 
3160 IF пи=1 THEN LET 
Beto и 
3170 IF nu THEN LET 
LET b3 
5180 IF nu THEN: ¿LET 
LET Б 3 
3190 20 THEN (ЕТ az 


IF a3i-1 THEN LET BRIGHT 12% "j BRIGHT ዌ 
1 THEN LET b xT ñ 
7 
i220 THEN LET b DT RDUM 
LET а(а3,Ь NT INE 


RETURN 
Dibujo kiosko 
O : FOR n=19 TO 2 
RINT AT n,O; BRIGHT 14 РАРЕК 4 


FLASH 1; BRIGHT 1; "REFR 


O FLOT 87,118: DR 2 
11: DRAW -82,0: DRAW 0,-11 
PRINT AT 7,12; РАРЕК INE 


NEXT n 

Е ç 3 "ЗАТ 7,1940 № 

ЗЁТ@›РВТЫТ ЯТ 10,5; ІМК 5, "85555 O RETURN 

SEBG FOR neli то 18: PRINT INK 5 REM Pantalla objeto 

SAT n Si BRIGHT 1;"EEEE^; BRIGHT IF а(р,о) =8 THEN RETURN 

Ui"EÉEEEEEEEEEEEET: NEXT n 00 LET al=INT (4+RNDX14): LET 

PAPE INT (Z-RNDX25) 

NEXT n 3410 FOR n=18 ТО а1+1 STEP -1: Р 
¡AT 16 RINT INE 4; РАРЕК 1;АТ በ,ከ1 


NEXT n: PRINT АТ а1+1,Ь1- 
ER 1; BRIGHT 1; INK 4; FAFER 11" 


NT INK EBEN 17,11; BRIGH 
БА 8255 5 МК 4:9 


DISCOVERY 1 


El sistema compacto que reüne en una sola unidad los siguientes elementos: 


RETURN 


e Unidad de disco ultramoderna de 3,5" con 180 K * Salida para monitor monocromo. 
• Interface paralelo Centronics * Repetición del bus trasero del Spectrum. 
* Interface de joystick tipo Kempston * Alimentación interna de todo el sistema. 


FACILMENTE AMPLIABLE A 360 Kybtes. 
PROGRAMAS DISPONIBLES O DE PROXIMA APARICION 


* Contabilidad PNC (500 cuentas/4000 asientos) * Facturación 

* Tratamiento de textos * Nóminas 

е Cambio de Moneda * Base de Datos 
* Control de stocks 


PODEMOS PASARLE SU PROGRAMA FAVORITO A DISCO 


DE VENTA EN LOS MEJORES ESTABLECIMIENTOS DE INFORMATICA 


171081 


Distribuido en España рог: SISTEMAS LOGICOS GIRONA, S.A. - Avda. San Narciso, 24 - 17005 GIRONA - Tel. (972) 23 71 00 


Hoqramas 


3430 КЕМ Fantalla especial 
3440 IF ch=1 THEN RETURN 
3450 FOR n=1 TO 19: PRINT AT п,0 


$ BRIGHT 1; INK 5; PAPER 3p" "3A 
T n,28;" NEXT n 
3460 FOR PRINT AT 1,п 
; INK 5; BRIGHT 14" "3A 
T 19,ng" ы": NEXT ዘ 


3470 60 SUB 570 
3480 GO SUE 990 
3490 PRINT ІМК 6; РАРЕК 1; АТ 3, 
ат 5 12 ; "ALMACENE 


13; "GRANDES"; 
в" 


OO LET al=INT (S*RNDX12): LET 


БІзІМТ (2*RNDX25): FOR m=1 ТО S: 
FOR n TO 7: PRINT АТ ai,bi; I 


МК проф: 
NEXT m 


3510>FOR n=5 TO 18: 
BÀ INK RND&s7;RT n, 1 


BEEF .001,n+50: NEXT n: 


PRINT РАРЕВ 


PAPER Фу SEC REEL Т МЕ 
› со SUR 480 В 
GO SUB 480: LET en-0: GO SU 
в 920 
3540 RETURN 
3550 REM Final gusanez 
3560 LET nx=1: РАРЕК 0: BORDER 0 


3 INK 5: CLS : 
3970 FOR п=1 TO 50: 
ір INK 7;RNDX255, 


60 SUB 2740 
FLOT BRIGHT 


PLOT ІМК 7,2 
INK 7; BRIGHT 1;10,- 
BRIGHT | 


o SUB 490 
590 FOR n=26 TO 12 STEF -1: 60 


SUB 47 GO SUB 490: Ра 
USE 10: NEXT n: FAUSE 30: GO SUE 
490 к 

3600 PAUSE 50: PRINT INVERSE 1; 
PAPER 4; INK 7; BRIGHT 1;АТ 12, 
өтте; AT 14.6;"N ШАТ 15,6; 
"E " 

3610 ВЕЕР , 001, 20:4 FAUSE 75: РКІ 
NT INVERSE BRIGHT 1; FAPER 4 

$ INK 7;AT 1 PAU AT 14, ዘ 


ТАТ. 15,2%! 

3620 BEEF FAUSE 100: FR 
INT ие ат 14 
Е: "и 


о: "ав 


ВЕЕР .001 FAUSE 250: FR 


3 


INT INK 44 та" АТ 14,2; 
"H ዘ'ሰፐ 15,2; "Вей ВЕЕР .001,20: 
PAUSE 250 

3640. FOR n=1 TO 7: РКІМТ ІМК n; 

АТ 21,1;"S РАБА JUGAR N раға ге 

seteo": PAUSE 5: NEXT n 


3659 РОК пя! ТО 6: ВЕЕР „01,50 
3660 ТЕ INKEY$-"s" THEN LET по= 
O: RUN 

3670 IF INKEY$z"n" 
ZE USR O 

3680 NEXT n: PAUSE 5 
3690 GO TO 3650 


THEN  КаАМООМТ 


3700 FRINT АТ 8,2;"CLAVES:": FAU 
SE 100: RESTORE 3720: FOR пя TO 
55: READ j$: FOR m-7 TO O STEP 
ті: PRINT ІМК тт 4,3; j$;" 

"3 NEXT m: FOR m=O TO 7: FRIN 
T INK m; AT 4,2; 5$ "ом 
EXT m: BEEF .01,6 NEXT n: RETU 


RN 
3710 RESTORE 3720: LET no=INT (1 
+RNDX3S): FOR пе! ТО no: READ j$ 
: NEXT ñ: LET r$- RETURN 
3720 DATA "TECLADO", "ORDENADOR", 
"PROGRAMA", "LISTADO", "TELEVISION 
"CIRCUITO", "BINARIO", "DECIMAL" 
, "PANTALLA", "FERSONAL", "ALEATORI 
0", "IMPRESORA" , "INTERFACE", "BUS" 
, "MATRIZ", "BUCLE", "VARIABLE", "РА 
NTALLA", "SUBRUTINA", "GUSANEZ", "D 
ISCO", "MONITOR", "RUTINA" 
ON", "BRABACION", "SONIDO", 
"GRAFICO", "ELECTRON", "INTEGRADO 
, "CURSOR", "BORDE", "INVÉRSO", "ВО 
ккак", "SINCLAIR" 
3730 PRINT "жжжжжж LAS VACACIONE 
5 DE жжжкжжж"”” 


ов w=ð TO 4: FOR m=Q TO 1 

OR TO 1 STEP -1: ВЕЕР „94, 
n ፳ዐክርፎዩ n: PRINT АТ 2,0; INUER 
SE NT INK n; BRIGHT №; " በ1 
| 4 НМ qui "; NEXT h 
: NEXT m 


3750 NEXT и 

3760 PRINT * INK 1; "ж GUSANEZ SE 
MUEVE CON Z,X,P y L"': PRINT. Е 
LASH 1;" ЗЕ Река CON ОТКА ТЕСГА 


">>: PRINT "Ж COGE LOS & OBJETOS 
DIFERENTES"**: PRINT "х BUSCA А 
L ENANO Y CUIDADO CON LOS вка 
NDES ALMACENES" FRINT "ж CONV 
IERTE А GUS EN UN COCHE COGI 
ENDO LA ULTIMA FLOR Y...": FRINT 
"  ACERTANDO LA CLAVE SECRETA" 


3770 РКІМТ INK 4;"X BEBE REFRES 
COS FOR EL CAMINO": PRINT FLA 
SH 13 "ж TU META ES LLEGAR ል LA F 
Lava" 

3780 RESTORE 
7: BORDER 2 
: READ j: P 
n: RETURN 
5790 DATA 65,64, 128, 128, 128, 12 
54,65,241,2,%6,78,78,50,4,2 
,59,116,112,112 


3790: FOR п=0 TO 16 
ORDER 4: BORDER 1: 
¿E USR "a"+n, j: NEXT 


‚24 


16,124,186,4 
1 1 
470, 85, 170, 85,170, 
rU s , 
120,88,88,48,120,126,129, 17 
,195,251,195,2 


5 › SAVE "gusanez" LINE 1: EEEF 
5,10: VERIFY "": ВЕЕР 1,10 M 
9999 SAVE 


"gusanez" LINE 1: ВЕЕР 
5,105 VERIFY ""; ВЕЕР 1,10 


ANUNCIESE 
por 


MODULOS 


MADRID 
(91) 733 96 62 


BARCELONA 
(93) 3014700 


Coincidiendo con el inicio de 
una serie de código máquina en 
nuestra revista, os queremos pre- 
sentar una herramienta muy ütil a 
la hora de cargar o depurar los pro- 
gramas que se realizarán en este 
curso. 

Pablo Torrente nos ha enviado 
un trabajo bastante interesante: su 
programa permite listar en hexa- 
decimal los contenidos de la me- 
moria, cargar bytes en memoria, 
desensamblar programas, ejecutar- 
los de una vez o paso a paso. Tam- 


bién dispone de comandos para ac- 
tivar y desactivar la impresora 

El programa trabaja en Spec- 
trum de 16 ó 48 К, si bien es in- 
compatible con el Interface I, ya 
que, al residir el código máquina el 
líneas REM, la relocalización que 
producen las variables del sistema 
extra del Interface impide una 
ejecución correcta. 

El uso general de los coma aos 
es, para los que necesitan una di- 
rección, teclear ésta en hexadeci- 
mal y después la letra del coman- 


Las vacaciones son un buen 
momento para profundizar 

en el estudio de materias 
como el código máquina, que 
resultan difíciles de afrontar 
con el ajetreo de los estudios 
o el trabajo. 


do. Para los restantes, basta intro- 
ducir el comando para que surta 
efecto. El comando de carga en 
memoria utiliza los bytes que le si- 
guen en la línea de entrada. 

La introducción del programa 
no es un problema trivial, y con- 
v „ne seguir las instrucciones que 
os damos al pie de la letra. Para co- 
menzar, hay que teclear el progra- 
ma en BASIC (número uno), sin 
olvidarse de la línea 1, muy impor- 
tante. Después de finalizar la in- 
troducción, recomendamos salvar 


ваше. 


à cassette el programa. Tecleando 
GO TO 9000, se ejecuta un pro- 
grama en código máquina que 
convierte la línea 1 en línea 0, дап- 
dole una longitud de 800 bytes. El 
programa carga allí el código má- 
quina del comando L (introducir 
código) y T (listar código) Esto 
permite utilizar esa parte del mo- 
nitor, que ya funciona, para intro- 
ducir, a partir de la localidad 
5CD2, los bytes en hexadecimal 
correspondientes al listado 2. 


цш с шшш _ |‏ ص 


Es importante no tratar de utili- 
zar otros comandos que L o T has- 
ta no haber finalizado la introduc- 
ción del código. El comando T es 
importante, ya que permite verifi- 
car los bytes introducidos. Al aca- 
bar, basta salvar a cassette de nu 
vo el programa. Dispondremo: 


S1 
la introducción del código máqui- 
па ha sido correcta, de nuestro mo- 
nitor. 

El monitor, de reducido tamaño, 
no desensambla los mnemónicos 


Ejecución paso a paso 


Dirección 1602 


1602- C6 16 


AF=1400 ВС=0000 рЕ=0000 HL-0000 


ieoa- — ሬጅ 


AF=1600 ВС=0000 DE=0000 HL=0016 


1605- 26 ЗС 


AF=1600 ВС=0000 рЕ=0000 HL=5C16 


1607- 5፳ 
AF=1600 BC-0000 рЕ=0001 


1608- 23 
AF=1600 BC-0000 рЕ=0001 


1609- Sé 
AF=1600 EC=0000 DE=0001 


1604- 7A 
AF=0000 вс-0000 DE=0001 


1608- 82 
AF=0100 ВС=0000 DE=0001 


160C- . 20 02 
AF=0100 ВС=0000 DE=0001 


1610- 1B 


AF=0100 ВС=0000 DE=0000 HL-5Ci7 


1611- 2ል ዳጅ SC 


AF-0100 ВС=000@ DE=0000 HL=SCBé 


1614- 19 
AF=0108 BC-0000 


16157 22 51 56 
AF=0108 EC=0000 рЕ=0000 HL-SCRé 


HL-SC16 


HL=SC17 


HL=SC17 


HL=SC17 


HL=SC17 


ዚ==ርጅል 


1Х-0000 ТҮ=5СЗА SF=FFSé 
IX=0000 IY=5C3A SF=FFS6 
1Х-0000 IY=5C3A SF-FFS& 
IX=0000 IY=5C3A SF=FFS6 
1Х=0000 IY=5C3A SP-FFS6 
тх=0000 CZA SPSEFSA 
IX-0000 туевста SP-FFS& 

IY=5CIA SF=FFS6 
1X=0000 SF=FFSé 
1X-0000 SP=FF56 
IX=0000 IY=SCZA SF=FF56 
IX-0000 


ЗРЕРЕЗЬ 


IX=0000 IY-5CZA SF-FFE& 


Z80, pero cumple con la tarea de 
separar las instrucciones correcta- 
mente, distinguiendo las de un 
byte de las de dos o tres, etc. El co- 
mando de ejecución paso a paso 
resulta satisfactorio, y el programa 
entero puede servir como ayuda, a 
la vez que su estudio proporciona 
conocimientos interesantes de có- 
digo máquina. 


Autor: Pablo Torrente 16K 


Desensamblado 
Dirección 0 


0002- 
0005- 
0008- 
ODOR- 
ОООЕ- 
0010- 
0013- 
0014- 
0015- 
0015— 
0017- 
0018- 
OO1B-— 
001С- 
OO1F- 
0020 

оо2з- 


0025- 


REM MONITOR CODIGO MAQUINA 
REM Р. TORRENTE 1985 
REM instrucciones 
REM 1)-Cada comando puede 
ir precedido (opcionalmente) por 
una direccion en hexadecimal 

6 REM 2)-Comandos 1 

7 REM L-cergar en memoria 

bytes dados tras 

M=desensambla en hex 
R=corre un programa 


tne ee 


8 REM S=desensambla y ejecuta 
paso a paso un progra 
ma en codigo maquina, 
mostrando reg.CFU 
(s=sig instr. 
SPACE=volver al menu) 


9 REM Tevisualizar memoria 
Yeretorno a BASIC 
Р1=1 пргезога 
PO=pantalla 
20 BORDER 1: РАРЕЯ 1: INK 75 C 
LEAR 
30 LET рс=0 
100 POKE 2358,8: FOKE 23617,25 
2: INPUT LINE с 
200 IF сФ="" THEN GO TO 100 
300 LET 18=ርፄ(1)፣ LET c%=c%(2 T 


400 IF 1%=" " THEN 60 TO 200 


500 IF THEN 60 TO 1500 
600 IF THEN 60 TO 2000 
650 IF THEN GO TO 2620 
700 IF THEN 60 TO 2700 
800 IF THEN GO TO 3000 
900 IF THEN 60 TO 3400 


910 IF THEN 
1000 LET c$=1$+c$ 
1100 GO SUB 3600 
1105 LET ፀር=ከ 

1110 LET l$-CHR* (code) 

1200 GO TO 400 

1300 REM KRXRRICARGA BYTESXXXXEX 
1400 IF c&-"" THEN GO TO 100 
1600 GO SUB 3600 

1700 POKE pc,h 

1800 LET рс=рс+1 

1900 GO TO 1400 

2000 REM XXiXxix MONITOR 848848 
2100 FOR L=1 TO 20 

2200 POKE 23809,pc-2564 INT (pc/2 
56): РОКЕ 23810,INT (рс/256) 
2500 RANDOMIZE USR 24275 

2400 LET рс=рс+РЕЕК 23813 

2500 NEXT L 

2600 60 TO 200 

2620 REM AXRXRIMPRES./PANTALLARER 
60 SUB 5600 

РОКЕ 24527,Н+2: РОКЕ 24276 


STOP 


2650 60 TO 200 

2700 REM XXXXEOXGONRUNEIOU 888888 
2800 RANDOMIZE USR pc 

2900 60 TO 200 

2000 REM X***XXX Y STEP EX EKK KK OE 
3100 POKE 25809,рс-256ЖІМТ (pc/2 
56): РОКЕ 22810, INT (рс/256) 
3200 RANDOMIZE USR 23762 

3210 LET рс-25ӘЖРЕЕК 25810+РЕЕК 


3300 60 TO 200 

3400 REM XXYXXKPRINT BYTESERERIE 
3410 FOR 1-і TO 20 

3500 POKE 23809,pc-2568INT (рс/2 
56): FOKE 23810,INT (рс/256) 
3510 RANDOMIZE USR 24526 


3520 LET pc=pc+8 

3530 NEXT I 

3540 60 TO 200 

3600 REM #34438)1፳፤-0ፎር438888388 

5700 IF ፎፄ="* THEN RETURN 

3800 LET 18=ር(1)፥ LET с®=с®(2 T 

09) 

3900 IF 1%=" " THEN 60 TO 3700 

4000 LET ከ=6 

4100 LET code=CODE 1$ 

4200 IF сосе<48 ОК code>70 THEN 
RETUEN қ 

4300 IF code»57 AND codecéS THEN 
RETURN 

4400 LET h=16Xh+(code-48-7k(code 

264)) 

4500 IF све" THEN RETURN 

4700 LET 1$9-c$(1): LET ፎፄ=ርፄ(2 T 

O )« 60 TO 4100 

6000 SAVE "monitor" LINE 1 

6789 RANDOMIZE 6789 

8790 FOR 1521735 ТО PEEK 25627+2 

56ЖРЕЕК 23628 STEP 4 

6795 IF РЕЕК (1-1)=13 AND РЕЕК 1 

=РЕЕК 25671 ВМО PEEK (1+1)=PEEK 

23470 THEN RANDOMIZE 1: РОКЕ 25 

527,PEEK 23670: РОКЕ 23628,PEEK 

23671: PRINT у FLASH 1° 

Pulsa una tecla para seguir 

PAUSE 0: 60 TO 20 

4799 LET 1=1+РЕЕК (1+2)+255жРЕЕК 
(1+3): NEXT 1 

9000 REM *1*CARGADOR INICIALAXK 

3001 CLS 

9002 PRINT * * 
Espera unos segundos hasta que 

aparezca el cursor" 

9003 PRINT ' 5 
Para cargar los bytes del lis- 

tado hexadecimal adjunto, tecle: 

5ር02 L seguido de los primeros 

bytes. Para cargar sucesivos 

bytes basta teclear L antes de 

cade bloque. Se pueden verificar 

los bytes mediant comando T 

9004 PRINT 4 

Cuando termines de cargar los 

bytes puedes grabar el programa 
mediante GOTO £000, ya que las 
lineas 6789-9918 habran desapa- 
recido y el 
almacena en 

9010 RESTORE 

9018 FOR 1=0 

9020 READ b: POKE 40960+1,b 

9022 NEXT i 

9030 RANDOMIZE USR 40960 

9052 POKE 25756,0: POKE 22757, 25 

9054 POKE 25758,5: POKE 25760,15 

3036 РОКЕ 23761,128 

9040 FOR і-0 TO 59 

9045 READ b: POKE 24501+1,b 

9050 NEXT i 

9060 80 TO 6789 

9800 DATA 33,209,92,1,32,5,205,8 

5,22,201 

9900 DATA 87,31,31,31,31,205,194 

9902 DATA 95,122,205,194,95,201, 

230 

9904 DATA 15,198, 48, 254, 58, 56,2 

9906 DATA 198, 7,215, 201 

9910 DATA 62, 2, 205, 1, 22, 42, 12 

9912 DATA 215,42, 1, 92, 124, 205, 18 

1 

9914 DATA 95, 125, 205,181, 95, 62,4 

5 В 

9916 DATA 

9918 DATA 

өз 


k 
осела | ORG ፳5ር6= сазва 


LD R, (HL) 

@д@га ; 20570 СР HCD 
20032 ENT easca JP Z,CRLLS 
@@@4@ LD ክኒ , ቭፎይ35 gassa СР scs 
@@@5@ 5 ADD HÚ ,5Р ogsaa JP Z,RETS 
00050 LD SP,HL > 00510 СР НЕЗ 
90070 MON ኤሮ а, вер ፎፎ5=5 УР Z,dPHLS 
eooca IN ah АБЕУ гавза СР 3 
v0u9a BIT 20540 УР Z,XJUMP 
00100 JR NZ Кетер 02650 СР HDD 
@@11@ JR STE! eaecca JR 2,4Р1 
00120 МЕЦТМ EI 00570 СР BFD 
eoisa CALL PSE gasea IR NZ,NXT 
00140 NSTEP LD ጸ, ፳7ጅ 00590 JP1 INC_HL 
eeisa IN Я, (RFE) 09700 D Е,Я 
00158 BIT е, ie LD A, (HL) 
eol7a че NZ,MON әәтгг СР #ЕЗ 
00138 LD ክኒ , 83282 725 JR МЕ, ህዞ 
02198 PU HL 0740 РЕ 
@@гаа LD 185С30},5Р 00750 JP С,ЧРІУЗ 
әггіз УР #1876 20750 JP УРТХ5 
00220 PSE ፌሮ DE ,ዝ8ጅወፎወ ватта ЈР2 DEC HL 
00:30 Р51 INC DE 00788 ህጻ ы 
002240 LD A,E 00790 NXT AND ВЕ? 
20250 ов D СР #10 
әггва JR ከ2,ዞ53 00810 JR Z,JRS 
ae27a 95 20328 AND ЗЕ? 
00280 РС DEFU 47065 002830 СР #20 
00299 RTN DEFY QQ 00840 JR Z, JRS 
00500 LON DEFB 0 eocso D #с? 
66235 AFA DEFU 00 eesca CP ፳ር7 
авзга все DEFU Ва везта JR Z,RSTS 
00339 РЕБ БЕРН QQ айгай AND HOS 
00340 нг БЕРН ae oasa СР Has 

| @@з5@ ТХЕ DEFW aa eese JR Z,NO 
00360 Iva DEFU ሽ፳5ር38 газта LD A, (HL) 

| 00370 AF1 DEFU 00 агага AND ፳ሮ3. 
22380 ВСІ pEFU 00 ፎይ228 СР sca 

` 22390 DE1 DEFW 00 ፎይሯፋፀ JR Z,COND 
арага НЕТ DEFY ee о0з50 мо LD DE,XGRR 
00410 ІХІ ГЕР QQ 00350 LDIR 
адаса IY1 DEN 42520 газта JR XGOINS 
22430 ЗРТ FU 90930 JRS LD DE, XGAR 
00440 LBLS DEFN /BEBCDEHLIXIYSP / 22998 LD 8, (HL) 
20450 IBLO DEFU @,@ 210200 LOI 
00450 3B NUPRL eieie EX DE.HL 

| 0047 JPREL 21020 LD ініі,5 
20480 STEP 58.1. INST 01030 XQINS CALL LREG 

| 20430 LD HL,IBLG 01040 ХОВЕ DEFU 2,0,0,0,0 
easaa LD РЕ, ХОЯР 21050 COND LD я, (HL) 
@@51@ LD вс, повая 21260 AND яға 
ፎፎ==5 LDIR @1@7@ DR вее 
28522 LD HL, PC) laag LD tJMPC) 
00548 LD A, (LON) v1090 LO DE, (8ኛ) 
eassa LD ሮ,ጸ аттеа PUSH DE 


е... 


ЧИРЕ 
FALS 
NJPRL 


dPREL 


TRUE 


RETS 


INCP2 
INCP3 


JPIXS 


eias 


л лл EN с СЛ OT CT (n (1 
foi i ~J (h ҚАРІП Es ба 
© гә сә сә 6ህ басы бу су የ ба ә (sp гы © 


РОР ВЕ 

ЧР TRUE;t JP 
УВ ІМЕРЗ — 
CRLL SREG 

УР INCP3 
CALL SREG 
LD HL, (PC) 
INC HL 

LD A, (HL) 
CALL ADROS 


TRUE 


JR Z.CRLLS 
UR XOUMP 
XOR (HL) 


RE 


па сине 


ax mur DG Са) 
P 2 


“መሥክ 


ПИ 
ብ 
T 


PRU Cb as ро 


за 

45 

se à 
ва Lp вс, (801) 
та LD DE,IDEl! 
за LB HL EHLI? 
за LD IX, (፲፳3) 
ea ED TY ታሪ 
10 EXX 


гто 


Сантош 


<х та 


инто 


easseo 


LOOP LP в,сно 


| 


ወ=4=5 
82438 
22440 
02450 
224659 
02479 
22450 
02490 
02500 
02510 
02520 
агза 
02548 
02552 
безва 
02570 
e2530 
025902 
#2588 
02610 
056528 
02539 


02520 
22938 
02940 
02950 
e2960 
02970 
©2988 
дезза 


azaga 
03010 
азага 
озаза 
25040 
23050 


POE 519 
Бонг “Соор 
ы 


LD Я, (FCODE) 

LD HL,CODES 

LD с,з 

CPIR 

JR Z,CHECK 
LooP2 LD E.3 


ра Lp в,з 


LOOPS LE 8, ІНЬ? 
BE т 
IN 
ша “ezo 
вт tio 
DJNZ LOO 
ір 5,9 
CRLL PRSPC 


‚Я 


DE) 

DES 
JR 2,ሮፊ 
LD H,4FCODE 
СР RED 
ЧЕ 2,ға 
INC E 
JR P4 


БЕРБ ROD, HED, НЕР 
CODES DEFE 401.411,821,822 
DEFB 42A,431,832,H5A,4C02 
DEFB #C3 8C4 вся RCC, HOD 
DEFE Н02,#04 

СЕРЕ 858 , ВОС, 555 ,፳፳፳, ፳፳ፋ 
DEFB БЕН, HEC. 8ጆሯ , ፳ጅፋ , RFA 
ПЕЕВ RFC , 8ዞ5 

CODES DEFB 5 , 8 , 838,835 


83፳ , 53ሮ , #20., 


LP ALZ 
CALL ፳3553 
LD ALHO 
RST sia 
83550 LD HL, (ዞሮ) 
0357 LD ALH 
52555 CALL PRINT 
азвза “ LB В 
33500 CALL PRINT 
22535 ED H,"- 
23528 RST 535 
22525 LD в,в 
22648 ті LD я,пга 
33654 tio 
135660 R, (HL; 
23679 PRINT 
32522 HL 
32532 DJNZ Ti 


HBE,ü30,435, 
RCS, ECE, HCE, HI 
НОВ, 85ጅ , RES 
e HFS,HFE 
2: ; 
e СОрЕ4 DEFE $21,422, 
e DEFB ፳4:2 , ፳ራጅ , ፳52 , ፳8፳ቺ 
ПЕЕВ 572 тв, RCE 
ወ: СОР2Я СЕРВ 8,819,822, 
031 DEFB ፳=5 , 825 , 8፳3 , 8፳2 ,8 
03170 DEFB БЕЗ, ፳ጅ= 
031: 
833 
032 
032 
232: 
032 
03 


TET OO 


Hen 525 


El corcho 


ar a pa 
eu 5392. 


rique- 


z endo Sine, das 


ente nuev, 
es Ad 


Intercambio programas del 
Spectrum de 16 y 48K. Enrique 
Genillo Blázquez. Aragón, 6- 
4.» В. 45005 Toledo. Telefono: 
22 6196. 


Pa 
Мотего. 
Barcelone 


Cambiaríamos programas e 
información con gente de toda 
España. Escribir al Apartado de 
Correos 35071 (08080) o telefo- 
near al (93) 241 99 48. 


Su anuncio puede ir aquí. Escribanos a 
«El corcho». TODOSPECTRUM. 
Bravo Murillo, 377.5. А. 28020 
Madrid. 


No me quedó clara la forma de 
utilizar las variables de tres ele- 
mentos como publicaron Uds. en 
el número 3 de TODOSPEC- 
TRUM еп el programa «Software 
para ordenar el software». ¿Qué 
significa cada uno de los elementos 
en la expresión DIN a$ (10,10,57) 
¿Qué caracteristicas técnicas tiene 
la impresora Epson FX-80? ¿Y el 
lápiz de luz de Dk'tronics? ¿Qué 
precio tienen? 


Eduardo Martínez 
Cartagena 


El 


Con la sentencia a que te refieres 
DIMensionamos una tabla com- 
puesta por 100 variables (10*10) de 
una longitud de 57 caracteres cada 
una. De esta forma quedarán as 
(1,1), a$ (1,2)... a$ (1,10), а$ (2,1)... 
hasta a$ (10,10). Айафепдо un 
tercer parámetro podremos frac- 
cionar la cadena de la forma habi- 
tual. Por ejemplo, si queremos im- 
primir los 7 primeros caracteres de 
el primer elemento de la tabla de- 
beremos hacer PRINT a$ (1,1, TO 
m. 


En cuanto a las caracteristicas 
de la impresora Epson FX-80 son 
las siguientes: 


Representante en España: 


Tradetec, Epson Center. Pro- 
venza, 89-91. 08029 Barcelona. 
Tel.: (93) 322 03 54, 

Características estándar: Ve- 
locidad: 160 CPS. Máx. carac- 
teres/línea: 137. Ancho máx. de 
papel: 10”. 


Interfaces: Paralelo: Centro- 
nics. Opcional: Serie RS 232C. 


Características particulares: 
Rollo de papel, Buffer de 2 КВ 
extensible a 32 KB, impresión 
enfatizada, cursiva. Precio: 
155.000 ptas. 


En cuando al lápiz óptico 
Dk'tronicks en este mismo пите- 
ro le dedicamos, como ya habrás 
visto, un artículo completo en el 
que podrás informarte exhaustiva- 
mente. 


[?]Poseo una impresora Admate- 
100 y me han avisado que no hace 
COPY a pesar del interface Cen- 
tronics. ¿Se podría conseguir por 
software? ¿De qué manera? 


Antonio García 
Alicante 


[] 


Sí es posible conseguir COPY en 
la impresora a que hace alusión, 
para ello puedes utilizar el progra- 
ma Basic adjunto (programa 1); 
esta rutina puedes incluirla en tus 
programas mediante MERGE, y 
acceder a ella con GO SUB 9000. 
Debe funcionarte a la perfección, 
aunque, como quizá te resulte algo 
lenta, puedes recurrir al código 
máquina. Si te decides a ello el 
otro programa que te ofrecemos 
(programa 2) es una rutina en as- 
sembler que puede solucionar el 
problema, pero, dependiendo del 
tipo de interface que tengas, es po- 
sible que tengas que realizar algu- 
na modificación. Por si no tienes 
ensamblador incluimos también 
un programa Basic que se encar- 
gará de cargar el código máquina. 
Una vez ejecutado, y si no ha habi- 
do problemas en la suma de con- 
trol, deberás salvarlo en cinta con 
SAVE «copy» CODE 65205, 100. 
Para volver a cargarlo deberás ha- 
cer LOAD «copy» CODE. 


8995 
8994 
8997 
8999 
9000 
CHR$ 
9010 
9020 
CHR$ 
9025 
9050 


REM programai 


КЕМ subrutina COPY 

LPRINT CHR$ 27:CHR$ 27; "а"; 
27; CHR$ 8; 

FOR y=175 TO 7 STEP -8 
LPRINT CHR$ 27;CHR$ 27; "К": 
27:СНК% O;CHR$ 27;CHR$ 1; 
FOR x=0 TO 255 

LPRINT CHR$ 27; СНКФ (128XF0 


INT (х,у) +64ЖРОІМТ (х,у-1)+52ЖРО 
INT (x,y-2)+16XFOINT (x,y-3)48XF 


NOLI 
NUCA 


NUBY 


OINT (x,y—-4)*4XPOINT (х,у-5)+2ЖР 

OINT (x,y-6)*POINT (x,y-7))3 

9040 NEXT x: LPRINT 

9050 NEXT y 

9060 RETURN THER 
5; programa 2 O LD  HL,4000H 
6 ір а, 

71 subrutina COFY СР. S8H 

8 RET Z 
10 ORG 65205 0 LD  ^,13 
2 UD. А,27 RST 16 


RST 


RST 16 
LD 4,27 

RST. 16 

ЕВ! ЛАТ 

RST 16 

LD в,а 

FUSH BC 

LD  B,8 

LD  DE,TAELA 
RLC (HL) 

EX  DE,HL 

RL (HL) 

INC HL 

EX  DE,HL 
DINZ NUBY 

INC H 

РОР ВС 

DJNZ NUCA 

EX DE,HL 

ір 8,8 

LD  HL,TABLA 
tp (А;27 


cargador programa 2 


ШЕТ 

FOR пво TO 99 

READ a 

FOKE éSzoSt*tn.a 

LET с=с+а 

NEXT n 

FRINT FLASH 14" ERROR EN D 
AND с:210804 


6227) 215, 62,27,215 


215,62, 27, 215, 62, 27 
2148, 62, 75, 215, 62,27 


245, 62) 0, 215, 62, 27 


219,62, 


197,6,8 


5,16, 2 
40,188, 
Пере 


205,24, 


15215 
117,2 


8, 225, 77, 44 
124, 214, 8, 102 
Қ 2547512752 
175,243 4 


Como podrán observar quienes 
tengan algún conocimiento del sis- 
tema operativo del Spectrum, el 
programa en código máquina uti- 
liza el RST 16 (10H) para impri- 
mir un byte. El programa supone 
que previamente se ha selecciona- 
do como canal de salida el canal de 
impresora (canal 3) y que la rutina 
a la que apunta este canal necesita 
un ESC (27) antes de cada código 
de control. Para utilizar el progra- 
ma, este debe ir precedido de una 
llamada a la rutina de selección 
con un 3 en el acumulador: 


LD A.3 
CALL 1601H 
El programa está preparado asi- 


mismo para un Interface de impre- 
sora про Kempston (modelo 71 


Este Interface requería un código 
ESC antes de cada caracter de 
control que debiera ir a la impre- 
sora. Para utilizar el programa con, 
por ejemplo, el Interface 1, basta 
abrir el canal 3 a «B», incluir al 
principio las dos líneas que hemos 
indicado anteriormente, y eliminar 

LD 4,27 

RST 16 


una vez cada vez que ocurra dos 
veces seguidas en el programa. 
También se puede «pokear» con 
NOP. 

El programa se puede relocali- 
zar a cualquier posición de memo- 
ria, ya que la única dirección abso- 
luta es TABLA. Por ello, basta 
asignar hueco para una tabla de 8 


bytes. 
zd 


SUSCRIPCIONES: 
Rogamos dirijan toda la 
correspondencia relacionada con 
suscripciones a: 
TODOSPECTRUM 

EDISA: Tel. 41597 12 

C/ López de Hoyos, 141-5.. 
21002 MADRID 

(Para todos los pagos reseñar 
solamente TODOSPECTRUM) 
Para la compra de ejemplares. 
atrasados dirijanse a la propia 
editorial 

TODOSPECTRUM 

С Bravo Murillo, 

Tel. 733 74 13-2 
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